home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmptop.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  109.1 KB  |  4,679 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmptop.h"
  4. init_cmptop(){do_init(VV);}
  5. /*    function definition for T1EXPR    */
  6.  
  7. static L1()
  8. {register object *VOL base=vs_base;
  9.     register object *VOL sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     bds_check;
  12.     {VOL object V1;
  13.     check_arg(1);
  14.     V1=(base[0]);
  15.     vs_top=sup;
  16. TTL:;
  17.     bds_bind(VV[0],(V1));
  18.     bds_bind(VV[1],Ct);
  19.     frs_push(FRS_CATCH,VV[2]);
  20.     if(nlj_active)
  21.     {nlj_active=FALSE;frs_pop();
  22.     bds_unwind1;
  23.     bds_unwind1;
  24.     return;}
  25.     else{
  26.     if(!(type_of((V1))==t_cons)){
  27.     goto T3;}
  28.     {register object V2;
  29.     object V3;
  30.     register object V4;
  31.     V2= car((V1));
  32.     V3= cdr((V1));
  33.     V4= Cnil;
  34.     if(!(type_of((V2))==t_symbol)){
  35.     goto T8;}
  36.     if(!(((V2))==(VV[3]))){
  37.     goto T11;}
  38.     V5= (VFUN_NARGS=1,(*(LnkLI253))(VV[4]));
  39.     frs_pop();
  40.     base[3]= V5;
  41.     vs_top=(vs_base=base+3)+1;
  42.     bds_unwind1;
  43.     bds_unwind1;
  44.     return;
  45. T11:;
  46.     if((get((V2),VV[5],Cnil))==Cnil){
  47.     goto T14;}
  48.     if((symbol_value(VV[6]))==Cnil){
  49.     goto T16;}
  50.     (void)((VFUN_NARGS=2,(*(LnkLI254))(VV[7],(V1))));
  51. T16:;
  52.     (void)((*(LnkLI255))(Ct,(V1)));
  53.     V6= (*(LnkLI256))((V1));
  54.     frs_pop();
  55.     base[3]= V6;
  56.     vs_top=(vs_base=base+3)+1;
  57.     bds_unwind1;
  58.     bds_unwind1;
  59.     return;
  60. T14:;
  61.     V4= get((V2),VV[8],Cnil);
  62.     if(((V4))==Cnil){
  63.     goto T21;}
  64.     if((symbol_value(VV[9]))==Cnil){
  65.     goto T24;}
  66.     (void)((*(LnkLI257))());
  67. T24:;
  68.     base[3]= (V3);
  69.     vs_top=(vs_base=base+3)+1;
  70.     super_funcall_no_event((V4));
  71.     frs_pop();
  72.     bds_unwind1;
  73.     bds_unwind1;
  74.     return;
  75. T21:;
  76.     if((get((V2),VV[10],Cnil))==Cnil){
  77.     goto T29;}
  78.     if((symbol_value(VV[9]))==Cnil){
  79.     goto T31;}
  80.     (void)((*(LnkLI257))());
  81. T31:;
  82.     base[3]= (*(LnkLI258))((V1));
  83.     vs_top=(vs_base=base+3)+1;
  84.     (void) (*Lnk259)();
  85.     frs_pop();
  86.     bds_unwind1;
  87.     bds_unwind1;
  88.     return;
  89. T29:;
  90.     if((get((V2),VV[11],Cnil))==Cnil){
  91.     goto T36;}
  92.     V7= (*(LnkLI260))((V1));
  93.     frs_pop();
  94.     base[3]= V7;
  95.     vs_top=(vs_base=base+3)+1;
  96.     bds_unwind1;
  97.     bds_unwind1;
  98.     return;
  99. T36:;
  100.     base[3]= (V2);
  101.     vs_top=(vs_base=base+3)+1;
  102.     Lmacro_function();
  103.     vs_top=sup;
  104.     V4= vs_base[0];
  105.     if(((V4))==Cnil){
  106.     goto T39;}
  107.     {object V8;
  108.     base[3]= cdr((V1));
  109.     vs_top=(vs_base=base+3)+1;
  110.     Lcopy_list();
  111.     vs_top=sup;
  112.     V9= vs_base[0];
  113.     V8= (*(LnkLI261))((V4),(V2),V9);
  114.     base[3]= (V8);
  115.     vs_top=(vs_base=base+3)+1;
  116.     (void) (*Lnk259)();
  117.     frs_pop();
  118.     bds_unwind1;
  119.     bds_unwind1;
  120.     return;}
  121. T39:;
  122.     V10= (*(LnkLI260))((V1));
  123.     frs_pop();
  124.     base[3]= V10;
  125.     vs_top=(vs_base=base+3)+1;
  126.     bds_unwind1;
  127.     bds_unwind1;
  128.     return;
  129. T8:;
  130.     if(!(type_of((V2))==t_cons)){
  131.     goto T48;}
  132.     V11= (*(LnkLI260))((V1));
  133.     frs_pop();
  134.     base[3]= V11;
  135.     vs_top=(vs_base=base+3)+1;
  136.     bds_unwind1;
  137.     bds_unwind1;
  138.     return;
  139. T48:;
  140.     V12= (VFUN_NARGS=2,(*(LnkLI253))(VV[12],(V2)));
  141.     frs_pop();
  142.     base[3]= V12;
  143.     vs_top=(vs_base=base+3)+1;
  144.     bds_unwind1;
  145.     bds_unwind1;
  146.     return;}
  147. T3:;
  148.     frs_pop();
  149.     base[3]= Cnil;
  150.     vs_top=(vs_base=base+3)+1;
  151.     bds_unwind1;
  152.     bds_unwind1;
  153.     return;}
  154.     }
  155. }
  156. /*    local entry for function CTOP-WRITE    */
  157.  
  158. static object LI2(V14)
  159.  
  160. object V14;
  161. {     VMB2 VMS2 VMV2
  162.     bds_check;
  163. TTL:;
  164.     {object V15;
  165.     V15= Cnil;
  166.     bds_bind(VV[13],Cnil);
  167.     bds_bind(VV[14],Cnil);
  168.     bds_bind(VV[16],VV[15]);
  169.     bds_bind(VV[17],Cnil);
  170.     bds_bind(VV[18],small_fixnum(0));
  171.     bds_bind(VV[19],Cnil);
  172.     bds_bind(VV[0],Cnil);
  173.     setq(VV[20],reverse(symbol_value(VV[20])));
  174.     princ_str("\ninit_",VV[21]);
  175.     (void)((*(LnkLI262))((V14)));
  176.     princ_str("(){",VV[21]);
  177.     princ_str("do_init(VV);",VV[21]);
  178.     princ_char(125,VV[21]);
  179.     {object V16;
  180.     V16= symbol_value(VV[20]);
  181.     bds_bind(VV[0],car((V16)));
  182. T63:;
  183.     if(!(endp((V16)))){
  184.     goto T64;}
  185.     bds_unwind1;
  186.     goto T59;
  187. T64:;
  188.     setq(VV[1],Ct);
  189.     V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil);
  190.     if(((V15))==Cnil){
  191.     goto T70;}
  192.     base[8]= (V15);
  193.     {object V17;
  194.     V17= cdr((VV[0]->s.s_dbind));
  195.      vs_top=base+9;
  196.      while(!endp(V17))
  197.      {vs_push(car(V17));V17=cdr(V17);}
  198.     vs_base=base+9;}
  199.     super_funcall_no_event(base[8]);
  200.     vs_top=sup;
  201. T70:;
  202.     V16= cdr((V16));
  203.     (VV[0]->s.s_dbind)= car((V16));
  204.     goto T63;}
  205. T59:;
  206.     {object V18;
  207.     V18= symbol_value(VV[20]);
  208.     bds_bind(VV[0],car((V18)));
  209. T85:;
  210.     if(!(endp((V18)))){
  211.     goto T86;}
  212.     bds_unwind1;
  213.     goto T81;
  214. T86:;
  215.     setq(VV[1],Ct);
  216.     V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil);
  217.     if(((V15))==Cnil){
  218.     goto T92;}
  219.     base[8]= (V15);
  220.     {object V19;
  221.     V19= cdr((VV[0]->s.s_dbind));
  222.      vs_top=base+9;
  223.      while(!endp(V19))
  224.      {vs_push(car(V19));V19=cdr(V19);}
  225.     vs_base=base+9;}
  226.     super_funcall_no_event(base[8]);
  227.     vs_top=sup;
  228. T92:;
  229.     V18= cdr((V18));
  230.     (VV[0]->s.s_dbind)= car((V18));
  231.     goto T85;}
  232. T81:;
  233.     {object V20;
  234.     V20= Cnil;
  235. T105:;
  236.     if(!(endp(symbol_value(VV[24])))){
  237.     goto T107;}
  238.     goto T103;
  239. T107:;
  240.     V20= car(symbol_value(VV[24]));
  241.     {object V21;
  242.     V21= car(symbol_value(VV[24]));
  243.     setq(VV[24],cdr(symbol_value(VV[24])));}
  244.     {object V22;
  245.     V22= (V20);
  246.      vs_top=base+7;
  247.      while(!endp(V22))
  248.      {vs_push(car(V22));V22=cdr(V22);}
  249.     vs_base=base+7;}
  250.     (void) (*Lnk245)();
  251.     vs_top=sup;
  252.     goto T105;}
  253. T103:;
  254.     {object V23;
  255.     object V24;
  256.     V23= symbol_value(VV[25]);
  257.     V24= car((V23));
  258. T122:;
  259.     if(!(endp((V23)))){
  260.     goto T123;}
  261.     goto T118;
  262. T123:;
  263.     {object V25;
  264.     V25= (V24);
  265.      vs_top=base+8;
  266.      while(!endp(V25))
  267.      {vs_push(car(V25));V25=cdr(V25);}
  268.     vs_base=base+8;}
  269.     (void) (*Lnk263)();
  270.     vs_top=sup;
  271.     V23= cdr((V23));
  272.     V24= car((V23));
  273.     goto T122;}
  274. T118:;
  275.     {object V26;
  276.     object V27;
  277.     V26= (VV[13]->s.s_dbind);
  278.     V27= car((V26));
  279. T138:;
  280.     if(!(endp((V26)))){
  281.     goto T139;}
  282.     goto T134;
  283. T139:;
  284.     (void)((*(LnkLI264))((V27)));
  285.     V26= cdr((V26));
  286.     V27= car((V26));
  287.     goto T138;}
  288. T134:;
  289.     {object V28;
  290.     object V29;
  291.     V28= symbol_value(VV[26]);
  292.     V29= car((V28));
  293. T153:;
  294.     if(!(endp((V28)))){
  295.     goto T154;}
  296.     goto T149;
  297. T154:;
  298.     princ_str("\nstatic LC",VV[27]);
  299.     V30= structure_ref((V29),VV[28],3);
  300.     (void)((*(LnkLI265))(/* INLINE-ARGS */V30));
  301.     princ_str("();",VV[27]);
  302.     V28= cdr((V28));
  303.     V29= car((V28));
  304.     goto T153;}
  305. T149:;
  306.     {object V31;
  307.     object V32;
  308.     V31= symbol_value(VV[29]);
  309.     V32= car((V31));
  310. T171:;
  311.     if(!(endp((V31)))){
  312.     goto T172;}
  313.     goto T167;
  314. T172:;
  315.     princ_str("\n#define VM",VV[27]);
  316.     (void)((*(LnkLI265))(car((V32))));
  317.     princ_char(32,VV[27]);
  318.     (void)((*(LnkLI265))(cdr((V32))));
  319.     V31= cdr((V31));
  320.     V32= car((V31));
  321.     goto T171;}
  322. T167:;
  323.     (void)((*(LnkLI266))(Cnil));
  324.     {object V33;
  325.     object V34;
  326.     base[8]= (VV[18]->s.s_dbind);
  327.     base[9]= symbol_value(VV[30]);
  328.     base[10]= small_fixnum(1);
  329.     vs_top=(vs_base=base+8)+3;
  330.     Lminus();
  331.     vs_top=sup;
  332.     V33= vs_base[0];
  333.     V34= small_fixnum(0);
  334. T194:;
  335.     if(!(number_compare((V34),(V33))>=0)){
  336.     goto T195;}
  337.     goto T187;
  338. T195:;
  339.     (void)((*(LnkLI266))(Cnil));
  340.     V34= one_plus((V34));
  341.     goto T194;}
  342. T187:;
  343.     princ_str("\nstatic char * VVi[",VV[27]);
  344.     V35= number_plus(small_fixnum(1),symbol_value(VV[30]));
  345.     (void)((*(LnkLI265))(/* INLINE-ARGS */V35));
  346.     princ_str("]={",VV[27]);
  347.     princ_str("\n#define Cdata VV[",VV[27]);
  348.     (void)((*(LnkLI265))(symbol_value(VV[30])));
  349.     princ_char(93,VV[27]);
  350.     if((VV[17]->s.s_dbind)!=Cnil){
  351.     goto T211;}
  352.     princ_char(10,VV[27]);
  353.     (void)((*(LnkLI265))(small_fixnum(0)));
  354. T211:;
  355.     {register object V36;
  356.     V36= nreverse((VV[17]->s.s_dbind));
  357. T217:;
  358.     if(((V36))!=Cnil){
  359.     goto T218;}
  360.     princ_str("\n};",VV[27]);
  361.     goto T214;
  362. T218:;
  363.     princ_str("\n(char *)(",VV[27]);
  364.     (void)((*(LnkLI265))(caar((V36))));
  365.     (void)((*(LnkLI265))(cadar((V36))));
  366.     if((cdr((V36)))==Cnil){
  367.     goto T230;}
  368.     V37= VV[31];
  369.     goto T228;
  370. T230:;
  371.     V37= VV[32];
  372. T228:;
  373.     (void)((*(LnkLI265))(V37));
  374.     V36= cdr((V36));
  375.     goto T217;}
  376. T214:;
  377.     princ_str("\n#define VV ((object *)VVi)",VV[27]);
  378.     vs_base=vs_top;
  379.     (void) (*Lnk267)();
  380.     vs_top=sup;
  381.     {object V38;
  382.     object V39;
  383.     V38= (VV[13]->s.s_dbind);
  384.     V39= car((V38));
  385. T241:;
  386.     if(!(endp((V38)))){
  387.     goto T242;}
  388.     {object V40 = Cnil;
  389.     bds_unwind1;
  390.     bds_unwind1;
  391.     bds_unwind1;
  392.     bds_unwind1;
  393.     bds_unwind1;
  394.     bds_unwind1;
  395.     bds_unwind1;
  396.     VMR2(V40)}
  397. T242:;
  398.     {register object V41;
  399.     register object V42;
  400.     V41= cadr((V39));
  401.     V42= caddr((V39));
  402.     if(!(((V42))==(VV[33]))){
  403.     goto T251;}
  404.     princ_str("\nstatic object *Lclptr",VV[27]);
  405.     (void)((*(LnkLI265))((V41)));
  406.     princ_char(59,VV[27]);
  407.     V42= VV[34];
  408.     goto T249;
  409. T251:;
  410.     if(((V42))==Cnil){
  411.     goto T260;}
  412.     V42= (*(LnkLI268))((V42));
  413.     goto T258;
  414. T260:;
  415.     V42= VV[35];
  416. T258:;
  417. T249:;
  418.     princ_str("\nstatic ",VV[27]);
  419.     (void)((*(LnkLI265))((V42)));
  420.     princ_str(" LnkT",VV[27]);
  421.     (void)((*(LnkLI265))((V41)));
  422.     princ_str("() ;",VV[27]);
  423.     princ_str("\nstatic ",VV[27]);
  424.     (void)((*(LnkLI265))((V42)));
  425.     princ_str(" (*Lnk",VV[27]);
  426.     (void)((*(LnkLI265))((V41)));
  427.     princ_str(")() = LnkT",VV[27]);
  428.     (void)((*(LnkLI265))((V41)));
  429.     princ_char(59,VV[27]);}
  430.     V38= cdr((V38));
  431.     V39= car((V38));
  432.     goto T241;}}
  433. }
  434. /*    local entry for function MAYBE-EVAL    */
  435.  
  436. static object LI3(V45,V46)
  437.  
  438. object V45;register object V46;
  439. {     VMB3 VMS3 VMV3
  440. TTL:;
  441.     if((V45)!=Cnil){
  442.     goto T280;}
  443.     if(type_of(car((V46)))==t_symbol){
  444.     goto T281;}
  445.     goto T280;
  446. T281:;
  447.     V45= get(car((V46)),VV[36],Cnil);
  448. T280:;
  449.     if(((V45))==Cnil){
  450.     goto T286;}
  451.     if((VV[37])==(symbol_value(VV[38]))){
  452.     goto T284;}
  453. T286:;
  454.     if(!(type_of(symbol_value(VV[38]))==t_cons)){
  455.     goto T285;}
  456.     {register object x= VV[39],V47= symbol_value(VV[38]);
  457.     while(!endp(V47))
  458.     if(eql(x,V47->c.c_car)){
  459.     goto T292;
  460.     }else V47=V47->c.c_cdr;
  461.     goto T285;}
  462. T292:;
  463. T284:;
  464.     if(((V46))==Cnil){
  465.     goto T293;}
  466.     base[0]= (V46);
  467.     vs_top=(vs_base=base+0)+1;
  468.     (void) (*Lnk269)();
  469.     vs_top=sup;
  470. T293:;
  471.     {object V48 = Ct;
  472.     VMR3(V48)}
  473. T285:;
  474.     {object V49 = Cnil;
  475.     VMR3(V49)}
  476. }
  477. /*    function definition for T1EVAL-WHEN    */
  478.  
  479. static L4()
  480. {register object *base=vs_base;
  481.     register object *sup=base+VM4; VC4
  482.     vs_reserve(VM4);
  483.     bds_check;
  484.     {register object V50;
  485.     check_arg(1);
  486.     V50=(base[0]);
  487.     vs_top=sup;
  488. TTL:;
  489.     {register object V51;
  490.     register object V52;
  491.     V51= Cnil;
  492.     V52= Cnil;
  493.     if(!(endp((V50)))){
  494.     goto T299;}
  495.     (void)((*(LnkLI270))(VV[40],small_fixnum(1),small_fixnum(0)));
  496. T299:;
  497.     {register object V53;
  498.     register object V54;
  499.     V53= car((V50));
  500.     V54= car((V53));
  501. T306:;
  502.     if(!(endp((V53)))){
  503.     goto T307;}
  504.     goto T302;
  505. T307:;
  506.     {object V55= (V54);
  507.     if((V55!= VV[271]))goto T312;
  508.     V51= Ct;
  509.     goto T311;
  510. T312:;
  511.     if((V55!= VV[39]))goto T314;
  512.     V52= Ct;
  513.     goto T311;
  514. T314:;
  515.     if((V55!= VV[272]))goto T316;
  516.     goto T311;
  517. T316:;
  518.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[41],(V54))));}
  519. T311:;
  520.     V53= cdr((V53));
  521.     V54= car((V53));
  522.     goto T306;}
  523. T302:;
  524.     base[1]= car((V50));
  525.     bds_bind(VV[38],base[1]);
  526.     if(((V51))==Cnil){
  527.     goto T324;}
  528.     base[2]= (*(LnkLI273))(cdr((V50)));
  529.     vs_top=(vs_base=base+2)+1;
  530.     bds_unwind1;
  531.     return;
  532. T324:;
  533.     if(((V52))==Cnil){
  534.     goto T327;}
  535.     base[2]= make_cons(VV[42],cdr((V50)));
  536.     vs_top=(vs_base=base+2)+1;
  537.     (void) (*Lnk269)();
  538.     bds_unwind1;
  539.     return;
  540. T327:;
  541.     base[2]= Cnil;
  542.     vs_top=(vs_base=base+2)+1;
  543.     bds_unwind1;
  544.     return;}
  545.     }
  546. }
  547. /*    local entry for function T1PROGN    */
  548.  
  549. static object LI5(V57)
  550.  
  551. object V57;
  552. {     VMB5 VMS5 VMV5
  553.     bds_check;
  554. TTL:;
  555.     if(!(equal(car((V57)),VV[43]))){
  556.     goto T331;}
  557.     bds_bind(VV[44],Ct);
  558.     {object V58 = (*(LnkLI273))(cdr((V57)));
  559.     bds_unwind1;
  560.     VMR5(V58)}
  561. T331:;
  562.     {register object V59;
  563.     register object V60;
  564.     V59= (V57);
  565.     V60= car((V59));
  566. T336:;
  567.     if(!(endp((V59)))){
  568.     goto T337;}
  569.     {object V61 = Cnil;
  570.     VMR5(V61)}
  571. T337:;
  572.     base[1]= (V60);
  573.     vs_top=(vs_base=base+1)+1;
  574.     (void) (*Lnk259)();
  575.     vs_top=sup;
  576.     V59= cdr((V59));
  577.     V60= car((V59));
  578.     goto T336;}
  579. }
  580. /*    local entry for function CMPFIX-ARGS    */
  581.  
  582. static object LI6(V64,V65)
  583.  
  584. object V64;object V65;
  585. {     VMB6 VMS6 VMV6
  586. TTL:;
  587.     {register object V66;
  588.     register object V67;
  589.     V66= Cnil;
  590.     base[1]= cadr((V64));
  591.     vs_top=(vs_base=base+1)+1;
  592.     Lcopy_list();
  593.     vs_top=sup;
  594.     V67= vs_base[0];
  595.     {register object V68;
  596.     register object V69;
  597.     V68= (V65);
  598.     V69= car((V68));
  599. T355:;
  600.     if(!(endp((V68)))){
  601.     goto T356;}
  602.     goto T351;
  603. T356:;
  604.     {register object x= car((V69)),V70= (V67);
  605.     while(!endp(V70))
  606.     if(eql(x,V70->c.c_car)){
  607.     V66= V70;
  608.     goto T361;
  609.     }else V70=V70->c.c_cdr;
  610.     V66= Cnil;}
  611. T361:;
  612.     if((V66)==Cnil){
  613.     goto T362;}
  614.     {register object V71;
  615.     register object V72;
  616.     V71= (V66);
  617.     V72= cadr((V69));
  618.     if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71));
  619.     ((V71))->c.c_car = (V72);}
  620. T362:;
  621.     V68= cdr((V68));
  622.     V69= car((V68));
  623.     goto T355;}
  624. T351:;
  625.     {register object x= VV[45],V73= (V67);
  626.     while(!endp(V73))
  627.     if(eql(x,V73->c.c_car)){
  628.     V66= V73;
  629.     goto T375;
  630.     }else V73=V73->c.c_cdr;
  631.     V66= Cnil;}
  632. T375:;
  633.     if(((V66))==Cnil){
  634.     goto T373;}
  635.     {object V75;
  636.     V75= append((V65),cdr((V66)));
  637.     if(type_of(V66)!=t_cons)FEwrong_type_argument(Scons,V66);
  638.     (V66)->c.c_cdr = (V75);
  639.     goto T371;}
  640. T373:;
  641.     V76= make_cons(VV[45],(V65));
  642.     V67= append((V67),/* INLINE-ARGS */V76);
  643. T371:;
  644.     {object V77 = listA(3,car((V64)),(V67),cddr((V64)));
  645.     VMR6(V77)}}
  646. }
  647. /*    local entry for function T1DEFUN    */
  648.  
  649. static object LI7(V79)
  650.  
  651. object V79;
  652. {     VMB7 VMS7 VMV7
  653.     bds_check;
  654. TTL:;
  655.     {object V80;
  656.     V80= symbol_value(VV[46]);
  657.     bds_bind(VV[48],Cnil);
  658.     if(endp((V79))){
  659.     goto T381;}
  660.     if(!(endp(cdr((V79))))){
  661.     goto T380;}
  662. T381:;
  663.     V82 = make_fixnum(length((V79)));
  664.     (void)((*(LnkLI270))(VV[47],small_fixnum(2),V82));
  665. T380:;
  666.     if(type_of(car((V79)))==t_symbol){
  667.     goto T385;}
  668.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[49],car((V79)))));
  669. T385:;
  670.     V83= make_cons(VV[47],(V79));
  671.     (void)((*(LnkLI255))(Cnil,/* INLINE-ARGS */V83));
  672. T390:;
  673.     setq(VV[6],Ct);
  674.     setq(VV[50],Cnil);
  675.     {register object V84;
  676.     object V85;
  677.     object V86;
  678.     register object V87;{object V88;
  679.     V88= get(car((V79)),VV[56],Cnil);
  680.     if(V88==Cnil)goto T397;
  681.     V85= V88;
  682.     goto T396;
  683. T397:;}
  684.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  685.     V85= symbol_value(VV[57]);
  686. T396:;
  687.     V87= car((V79));
  688.     bds_bind(VV[51],Cnil);
  689.     bds_bind(VV[52],Cnil);
  690.     bds_bind(VV[53],Cnil);
  691.     bds_bind(VV[54],Cnil);
  692.     V84= Cnil;
  693.     bds_bind(VV[55],Cnil);
  694.     V86= Cnil;
  695.     V84= (VFUN_NARGS=2,(*(LnkLI274))(cdr((V79)),(V87)));
  696.     if(!(eql((V80),symbol_value(VV[46])))){
  697.     goto T404;}
  698.     goto T403;
  699. T404:;
  700.     (void)(structure_set(cadr((V84)),VV[58],4,Ct));
  701. T403:;
  702.     V89= structure_ref(cadr((V84)),VV[58],1);
  703.     (void)((*(LnkLI275))(/* INLINE-ARGS */V89));
  704.     if((get((V87),VV[59],Cnil))==Cnil){
  705.     goto T407;}
  706.     {object V90;
  707.     V90= make_fixnum(length(car(caddr((V84)))));
  708.     (void)(sputprop((V87),VV[59],(V90)));
  709.     base[6]= (V90);
  710.     base[7]= VV[61];
  711.     base[8]= Ct;
  712.     vs_top=(vs_base=base+6)+3;
  713.     Lmake_list();
  714.     vs_top=sup;
  715.     V91= vs_base[0];
  716.     V92= list(4,VV[60],(V87),V91,Ct);
  717.     (void)((*(LnkLI276))(/* INLINE-ARGS */V92));}
  718. T407:;
  719.     if((get((V87),VV[62],Cnil))==Cnil){
  720.     goto T418;}
  721.     {object V93;
  722.     register object V94;
  723.     V93= caddr((V84));
  724.     V94= Cnil;
  725.     if((cadr((V93)))==Cnil){
  726.     goto T423;}
  727.     goto T418;
  728. T423:;
  729.     if((caddr((V93)))==Cnil){
  730.     goto T425;}
  731.     goto T418;
  732. T425:;
  733.     if((cadddr((V93)))==Cnil){
  734.     goto T427;}
  735.     goto T418;
  736. T427:;
  737.     if((length(car((V93))))<(64)){
  738.     goto T429;}
  739.     goto T418;
  740. T429:;
  741.     {register object V95;
  742.     register object V96;
  743.     object V97;
  744.     V95= car((V93));
  745.     V96= get((V87),VV[63],Cnil);
  746.     V97= Cnil;
  747. T436:;
  748.     if(!(endp((V95)))){
  749.     goto T437;}
  750.     if(endp((V96))){
  751.     goto T440;}
  752.     goto T432;
  753. T440:;
  754.     if(((V94))==Cnil){
  755.     goto T443;}
  756.     V79= (*(LnkLI277))((V79),(V94));
  757.     bds_unwind1;
  758.     bds_unwind1;
  759.     bds_unwind1;
  760.     bds_unwind1;
  761.     bds_unwind1;
  762.     goto T390;
  763. T443:;
  764.     if(((V97))==Cnil){
  765.     goto T431;}
  766.     goto T432;
  767. T437:;
  768.     {register object V98;
  769.     V98= car((V95));
  770.     if(!(equal(car((V96)),VV[64]))){
  771.     goto T450;}
  772.     goto T432;
  773. T450:;
  774.     V99= structure_ref((V98),VV[65],1);
  775.     if((/* INLINE-ARGS */V99)==(VV[66])){
  776.     goto T456;}
  777.     V100= structure_ref((V98),VV[65],1);
  778.     if(!((/* INLINE-ARGS */V100)==(VV[67]))){
  779.     goto T455;}
  780.     if(!((car((V96)))==(Ct))){
  781.     goto T455;}
  782. T456:;
  783.     if((structure_ref((V98),VV[65],3))!=Cnil){
  784.     goto T455;}
  785.     V101= structure_ref((V98),VV[65],4);
  786.     if(!((/* INLINE-ARGS */V101)==(VV[68]))){
  787.     goto T454;}
  788. T455:;
  789.     V102= structure_ref((V98),VV[65],0);
  790.     vs_base=vs_top;
  791.     Lgensym();
  792.     vs_top=sup;
  793.     V103= vs_base[0];
  794.     V104= list(2,/* INLINE-ARGS */V102,V103);
  795.     V94= make_cons(/* INLINE-ARGS */V104,(V94));
  796. T454:;
  797.     V105= car((V96));
  798.     V106= structure_ref((V98),VV[65],5);
  799.     if(((*(LnkLI278))(/* INLINE-ARGS */V105,/* INLINE-ARGS */V106))==Cnil){
  800.     goto T453;}
  801.     {register object x= car((V96)),V107= VV[69];
  802.     while(!endp(V107))
  803.     if(eql(x,V107->c.c_car)){
  804.     goto T448;
  805.     }else V107=V107->c.c_cdr;}
  806.     V108= structure_ref((V98),VV[65],4);
  807.     if((/* INLINE-ARGS */V108)==(VV[70])){
  808.     goto T448;}
  809.     if((symbol_value(VV[71]))!=Cnil){
  810.     goto T448;}
  811.     V110= structure_ref(cadr((V84)),VV[58],0);
  812.     {register object x= (V98),V109= /* INLINE-ARGS */V110;
  813.     while(!endp(V109))
  814.     if(eql(x,V109->c.c_car)){
  815.     goto T477;
  816.     }else V109=V109->c.c_cdr;
  817.     goto T448;}
  818. T477:;
  819. T453:;
  820.     if(((V94))!=Cnil){
  821.     goto T478;}
  822.     V111= structure_ref((V98),VV[65],0);
  823.     (void)((VFUN_NARGS=3,(*(LnkLI254))(VV[72],(V87),/* INLINE-ARGS */V111)));
  824. T478:;
  825.     V97= Ct;}
  826. T448:;
  827.     V95= cdr((V95));
  828.     V96= cdr((V96));
  829.     goto T436;}
  830. T432:;
  831.     goto T418;
  832. T431:;
  833.     if(!(type_of((V85))==t_fixnum||
  834. type_of((V85))==t_bignum||
  835. type_of((V85))==t_ratio||
  836. type_of((V85))==t_shortfloat||
  837. type_of((V85))==t_longfloat||
  838. type_of((V85))==t_complex)){
  839.     goto T418;}}
  840.     V112= get((V87),VV[63],Cnil);
  841.     V113= get((V87),VV[74],Cnil);
  842.     V114= get((V87),VV[63],Cnil);
  843.     V115= list(5,(V87),V112,V113,small_fixnum(3),(*(LnkLI279))((V85),V114));
  844.     setq(VV[73],make_cons(/* INLINE-ARGS */V115,symbol_value(VV[73])));
  845.     goto T416;
  846. T418:;
  847.     {object V116;
  848.     V117= get((V87),VV[74],Cnil);
  849.     V116= ((V117)==(Ct)?Ct:Cnil);
  850.     if(((V116))==Cnil){
  851.     goto T416;}}
  852. T416:;
  853.     if((cadddr((V84)))==Cnil){
  854.     goto T494;}
  855.     V86= cadddr((V84));
  856. T494:;
  857.     (void)((*(LnkLI280))());
  858.     V118= list(6,VV[47],(V87),(V85),(V84),(V86),(VV[55]->s.s_dbind));
  859.     setq(VV[20],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[20])));
  860.     V119= make_cons((V87),(V85));
  861.     setq(VV[75],make_cons(/* INLINE-ARGS */V119,symbol_value(VV[75])));
  862.     V120= symbol_value(VV[75]);
  863.     bds_unwind1;
  864.     bds_unwind1;
  865.     bds_unwind1;
  866.     bds_unwind1;
  867.     bds_unwind1;}
  868.     {object V121 = Cnil;
  869.     bds_unwind1;
  870.     VMR7(V121)}}
  871. }
  872. /*    local entry for function MAKE-INLINE-STRING    */
  873.  
  874. static object LI8(V124,V125)
  875.  
  876. object V124;object V125;
  877. {     VMB8 VMS8 VMV8
  878. TTL:;
  879.     if(((V125))!=Cnil){
  880.     goto T503;}
  881.     base[0]= Cnil;
  882.     base[1]= VV[76];
  883.     base[2]= (V124);
  884.     vs_top=(vs_base=base+0)+3;
  885.     Lformat();
  886.     vs_top=sup;
  887.     {object V126 = vs_base[0];
  888.     VMR8(V126)}
  889. T503:;
  890.     {register object V127;
  891.     V127= (VFUN_NARGS=7,(*(LnkLI281))(small_fixnum(100),VV[77],VV[78],VV[79],small_fixnum(0),VV[80],Ct));
  892.     base[0]= (V127);
  893.     base[1]= VV[81];
  894.     base[2]= (V124);
  895.     vs_top=(vs_base=base+0)+3;
  896.     Lformat();
  897.     vs_top=sup;
  898.     {register object V128;
  899.     register int V129;
  900.     V129= 0;
  901.     V128= (V125);
  902. T516:;
  903.     if(!(endp(cdr((V128))))){
  904.     goto T517;}
  905.     base[0]= (V127);
  906.     base[1]= VV[82];
  907.     base[2]= make_fixnum(V129);
  908.     vs_top=(vs_base=base+0)+3;
  909.     Lformat();
  910.     vs_top=sup;
  911.     goto T513;
  912. T517:;
  913.     base[0]= (V127);
  914.     base[1]= VV[83];
  915.     base[2]= make_fixnum(V129);
  916.     vs_top=(vs_base=base+0)+3;
  917.     Lformat();
  918.     vs_top=sup;
  919.     V128= cdr((V128));
  920.     V129= (V129)+1;
  921.     goto T516;}
  922. T513:;
  923.     {object V130 = (V127);
  924.     VMR8(V130)}}
  925. }
  926. /*    local entry for function CS-PUSH    */
  927.  
  928. static object LI9(va_alist)
  929.     va_dcl 
  930. {    
  931.     va_list ap;
  932.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  933.     {object V131;
  934.     narg = narg - 0;
  935.     if (narg <= 0) goto T532;
  936.     else {
  937.     va_start(ap);
  938.     V131= va_arg(ap,object);}
  939.     --narg; goto T533;
  940. T532:;
  941.     V131= Cnil;
  942. T533:;
  943.     {object V132;
  944.     setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
  945.     V132= symbol_value(VV[84]);
  946.     if(((V131))==Cnil){
  947.     goto T541;}
  948.     V133= make_cons((V131),(V132));
  949.     goto T539;
  950. T541:;
  951.     V133= (V132);
  952. T539:;
  953.     setq(VV[14],make_cons(V133,symbol_value(VV[14])));
  954.     {object V134 = (V132);
  955.     VMR9(V134)}}}
  956.     }
  957. /*    local entry for function F-TYPE    */
  958.  
  959. static int LI10(V136)
  960.  
  961. register object V136;
  962. {     VMB10 VMS10 VMV10
  963. TTL:;
  964.     base[0]= (V136);
  965.     base[1]= VV[65];
  966.     vs_top=(vs_base=base+0)+2;
  967.     (void) (*Lnk282)();
  968.     vs_top=sup;
  969.     if((vs_base[0])==Cnil){
  970.     goto T543;}
  971.     V136= structure_ref((V136),VV[65],5);
  972. T543:;
  973.     if(((V136))==Cnil){
  974.     goto T550;}
  975.     base[0]= (V136);
  976.     base[1]= VV[85];
  977.     vs_top=(vs_base=base+0)+2;
  978.     (void) (*Lnk283)();
  979.     vs_top=sup;
  980.     if((vs_base[0])==Cnil){
  981.     goto T550;}
  982.     {int V137 = 1;
  983.     VMR10(V137)}
  984. T550:;
  985.     {int V138 = 0;
  986.     VMR10(V138)}
  987. }
  988. /*    local entry for function PROCLAIMED-ARGD    */
  989.  
  990. static int LI11(V141,V142)
  991.  
  992. register object V141;object V142;
  993. {     VMB11 VMS11 VMV11
  994. TTL:;
  995.     {register int V143;
  996.     register int V144;
  997.     register object V145;
  998.     register object V146;
  999.     V143= length((V141));
  1000.     V144= 8;
  1001.     V145= make_fixnum((*(LnkLI284))((V142)));
  1002.     V146= Ct;
  1003. T560:;
  1004.     if(eql(small_fixnum(0),(V145))){
  1005.     goto T562;}
  1006.     V143= (V143)+(((fix((V145))) << (V144)));
  1007. T562:;
  1008.     if(((V146))==Cnil){
  1009.     goto T566;}
  1010.     V144= 10;
  1011.     V146= Cnil;
  1012. T566:;
  1013.     if(((V141))!=Cnil){
  1014.     goto T572;}
  1015.     {int V147 = V143;
  1016.     VMR11(V147)}
  1017. T572:;
  1018.     V144= (V144)+(2);
  1019.     {register object V149;
  1020.     V149= car((V141));
  1021.     V141= cdr((V141));
  1022.     V148= (V149);}
  1023.     V145= make_fixnum((*(LnkLI284))(V148));
  1024.     goto T560;}
  1025. }
  1026. /*    local entry for function WT-IF-PROCLAIMED    */
  1027.  
  1028. static object LI12(V153,V154,V155)
  1029.  
  1030. register object V153;object V154;object V155;
  1031. {     VMB12 VMS12 VMV12
  1032. TTL:;
  1033.     if(((VFUN_NARGS=1,(*(LnkLI286))((V153))))==Cnil){
  1034.     goto T584;}
  1035.     {register object x= (V153),V156= symbol_value(VV[73]);
  1036.     while(!endp(V156))
  1037.     if(type_of(V156->c.c_car)==t_cons &&eql(x,V156->c.c_car->c.c_car)){
  1038.     goto T588;
  1039.     }else V156=V156->c.c_cdr;
  1040.     goto T587;}
  1041. T588:;
  1042.     V157= list(2,VV[87],(V153));
  1043.     V158= (*(LnkLI288))(VV[88],(V154));
  1044.     V159= get((V153),VV[63],Cnil);
  1045.     V160= get((V153),VV[74],Cnil);
  1046.     V161 = make_fixnum((*(LnkLI289))(V159,V160));
  1047.     V162= list(4,VV[86],/* INLINE-ARGS */V157,/* INLINE-ARGS */V158,V161);
  1048.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V162)));
  1049.     {object V163 = Ct;
  1050.     VMR12(V163)}
  1051. T587:;
  1052.     {register object V164;
  1053.     register object V165;
  1054.     object V166;
  1055.     V164= make_fixnum(length(car(caddr((V155)))));
  1056.     V167= get((V153),VV[63],Cnil);
  1057.     V165= make_fixnum(length(V167));
  1058.     V169= get((V153),VV[63],Cnil);
  1059.     {register object x= VV[64],V168= V169;
  1060.     while(!endp(V168))
  1061.     if(eql(x,V168->c.c_car)){
  1062.     V166= V168;
  1063.     goto T596;
  1064.     }else V168=V168->c.c_cdr;
  1065.     V166= Cnil;}
  1066. T596:;
  1067.     if(((V166))==Cnil){
  1068.     goto T599;}
  1069.     base[0]= (V164);
  1070.     vs_top=(vs_base=base+0)+1;
  1071.     Lmonotonically_nonincreasing();
  1072.     vs_top=sup;
  1073.     if((vs_base[0])==Cnil){
  1074.     goto T601;}
  1075.     goto T592;
  1076. T601:;{object V170;
  1077.     V171 = make_fixnum(length((V166)));
  1078.     V170= number_minus((V165),V171);
  1079.     if(V170==Cnil)goto T604;
  1080.     goto T592;
  1081. T604:;}
  1082.     V172 = make_fixnum(length((V166)));
  1083.     V173= number_minus((V165),V172);
  1084.     (void)((VFUN_NARGS=4,(*(LnkLI254))(VV[89],(V153),/* INLINE-ARGS */V173,(V164))));
  1085.     goto T592;
  1086. T599:;
  1087.     if(eql((V164),(V165))){
  1088.     goto T607;}
  1089.     (void)((VFUN_NARGS=4,(*(LnkLI254))(VV[90],(V153),(V165),(V164))));
  1090.     goto T592;
  1091. T607:;
  1092.     (void)((VFUN_NARGS=2,(*(LnkLI254))(VV[91],(V153))));}
  1093. T592:;
  1094.     {object V174 = Cnil;
  1095.     VMR12(V174)}
  1096. T584:;
  1097.     {object V175 = Cnil;
  1098.     VMR12(V175)}
  1099. }
  1100. /*    local entry for function VOLATILE    */
  1101.  
  1102. static object LI13(V177)
  1103.  
  1104. object V177;
  1105. {     VMB13 VMS13 VMV13
  1106. TTL:;
  1107.     if((structure_ref((V177),VV[58],4))==Cnil){
  1108.     goto T610;}
  1109.     {object V178 = VV[92];
  1110.     VMR13(V178)}
  1111. T610:;
  1112.     {object V179 = VV[93];
  1113.     VMR13(V179)}
  1114. }
  1115. /*    local entry for function REGISTER    */
  1116.  
  1117. static object LI14(V181)
  1118.  
  1119. object V181;
  1120. {     VMB14 VMS14 VMV14
  1121. TTL:;
  1122.     if(!(equal(symbol_value(VV[16]),VV[94]))){
  1123.     goto T613;}
  1124.     {int V182= fix(structure_ref((V181),VV[65],6));
  1125.     if(!((/* INLINE-ARGS */V182)>=(fix(symbol_value(VV[95]))))){
  1126.     goto T613;}}
  1127.     {object V183 = VV[96];
  1128.     VMR14(V183)}
  1129. T613:;
  1130.     {object V184 = VV[97];
  1131.     VMR14(V184)}
  1132. }
  1133. /*    local entry for function VARARG-P    */
  1134.  
  1135. static object LI15(V186)
  1136.  
  1137. object V186;
  1138. {     VMB15 VMS15 VMV15
  1139. TTL:;
  1140.     V187= get((V186),VV[74],Cnil);
  1141.     if(equal(V187,Ct)){
  1142.     goto T617;}
  1143.     {object V188 = Cnil;
  1144.     VMR15(V188)}
  1145. T617:;
  1146.     {register object V189;
  1147.     V189= get((V186),VV[63],Cnil);
  1148. T622:;
  1149.     if(((V189))!=Cnil){
  1150.     goto T623;}
  1151.     {object V190 = Ct;
  1152.     VMR15(V190)}
  1153. T623:;
  1154.     if(!(type_of((V189))==t_cons)){
  1155.     goto T628;}
  1156.     goto T627;
  1157. T628:;
  1158.     {object V191 = Cnil;
  1159.     VMR15(V191)}
  1160. T627:;
  1161.     if(!((car((V189)))==(Ct))){
  1162.     goto T631;}
  1163.     goto T630;
  1164. T631:;
  1165.     if(!((car((V189)))==(VV[64]))){
  1166.     goto T633;}
  1167.     goto T630;
  1168. T633:;
  1169.     {object V192 = Cnil;
  1170.     VMR15(V192)}
  1171. T630:;
  1172.     V189= cdr((V189));
  1173.     goto T622;}
  1174. }
  1175. /*    local entry for function MAXARGS    */
  1176.  
  1177. static object LI16(V194)
  1178.  
  1179. register object V194;
  1180. {     VMB16 VMS16 VMV16
  1181. TTL:;
  1182.     if((cadr(cddddr((V194))))!=Cnil){
  1183.     goto T638;}
  1184.     if((caddr((V194)))==Cnil){
  1185.     goto T639;}
  1186. T638:;
  1187.     {object V195 = small_fixnum(64);
  1188.     VMR16(V195)}
  1189. T639:;
  1190.     { save_avma;
  1191.     V196 = stoi(length(car((V194))));
  1192.     V197 = stoi(length(cadr((V194))));
  1193.     V198 = stoi(length(car(cddddr((V194)))));
  1194.     {GEN V199= mulsi(2,V198);
  1195.     {object V200 = make_integer(addii(V196,addii(V197,/* INLINE-ARGS */V199)));
  1196.     restore_avma; 
  1197.     VMR16(V200)}restore_avma;}}
  1198. }
  1199. /*    local entry for function ADD-ADDRESS    */
  1200.  
  1201. static object LI17(V203,V204)
  1202.  
  1203. object V203;object V204;
  1204. {     VMB17 VMS17 VMV17
  1205. TTL:;
  1206.     V205= list(2,(V203),(V204));
  1207.     setq(VV[17],make_cons(/* INLINE-ARGS */V205,symbol_value(VV[17])));
  1208.     {object V206;
  1209.     V206= symbol_value(VV[18]);
  1210.     setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1)));
  1211.     {object V207 = (V206);
  1212.     VMR17(V207)}}
  1213. }
  1214. /*    local entry for function T2DEFUN    */
  1215.  
  1216. static object LI18(V213,V214,V215,V216,V217)
  1217.  
  1218. register object V213;register object V214;register object V215;object V216;object V217;
  1219. {     VMB18 VMS18 VMV18
  1220. TTL:;
  1221.     if((get((V213),VV[98],Cnil))==Cnil){
  1222.     goto T647;}
  1223.     {object V218 = Cnil;
  1224.     VMR18(V218)}
  1225. T647:;
  1226.     if(((V216))==Cnil){
  1227.     goto T650;}
  1228.     V219= list(4,VV[99],list(2,VV[87],(V213)),(V216),VV[100]);
  1229.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V219)));
  1230. T650:;
  1231.     {object V220;
  1232.     V220= (*(LnkLI290))((V213),(V214),(V215));
  1233.     if(((V220))==Cnil){
  1234.     goto T656;}
  1235.     goto T653;
  1236. T656:;
  1237.     if(((*(LnkLI291))((V213)))==Cnil){
  1238.     goto T659;}
  1239.     {object V221;
  1240.     V221= cadddr(caddr((V215)));
  1241.     princ_str("\nstatic object LI",VV[27]);
  1242.     (void)((*(LnkLI265))((V214)));
  1243.     princ_str("();",VV[27]);
  1244.     if(((V221))==Cnil){
  1245.     goto T667;}
  1246.     V222= list(2,VV[87],(V213));
  1247.     V223= (*(LnkLI288))(VV[102],(V214));
  1248.     V224 = make_fixnum(length(car(caddr((V215)))));
  1249.     V225= (*(LnkLI292))(caddr((V215)));
  1250.     V226= (*(LnkLI285))(/* INLINE-ARGS */V225,small_fixnum(8));
  1251.     V227= number_plus(V224,/* INLINE-ARGS */V226);
  1252.     base[0]= Cnil;
  1253.     base[1]= VV[103];
  1254.     base[2]= (V214);
  1255.     vs_top=(vs_base=base+0)+3;
  1256.     Lformat();
  1257.     vs_top=sup;
  1258.     V228= vs_base[0];
  1259.     V229= list(5,VV[101],/* INLINE-ARGS */V222,/* INLINE-ARGS */V223,/* INLINE-ARGS */V227,(*(LnkLI288))(V228,VV[104]));
  1260.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V229)));
  1261.     goto T653;
  1262. T667:;
  1263.     V230= list(2,VV[87],(V213));
  1264.     V231= (*(LnkLI288))(VV[106],(V214));
  1265.     V232 = make_fixnum(length(car(caddr((V215)))));
  1266.     V233= (*(LnkLI292))(caddr((V215)));
  1267.     V234= (*(LnkLI285))(/* INLINE-ARGS */V233,small_fixnum(8));
  1268.     V235= list(4,VV[105],/* INLINE-ARGS */V230,/* INLINE-ARGS */V231,number_plus(V232,/* INLINE-ARGS */V234));
  1269.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V235)));
  1270.     goto T653;}
  1271. T659:;
  1272.     if(!(type_of((V214))==t_fixnum||
  1273. type_of((V214))==t_bignum||
  1274. type_of((V214))==t_ratio||
  1275. type_of((V214))==t_shortfloat||
  1276. type_of((V214))==t_longfloat||
  1277. type_of((V214))==t_complex)){
  1278.     goto T674;}
  1279.     princ_str("\nstatic L",VV[27]);
  1280.     (void)((*(LnkLI265))((V214)));
  1281.     princ_str("();",VV[27]);
  1282.     V236= list(2,VV[87],(V213));
  1283.     V237= list(3,VV[107],/* INLINE-ARGS */V236,(*(LnkLI288))(VV[108],(V214)));
  1284.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V237)));
  1285.     goto T653;
  1286. T674:;
  1287.     princ_char(10,VV[27]);
  1288.     (void)((*(LnkLI265))((V214)));
  1289.     princ_str("();",VV[27]);
  1290.     V238= list(2,VV[87],(V213));
  1291.     V239= list(3,VV[107],/* INLINE-ARGS */V238,(*(LnkLI288))(VV[109],(V214)));
  1292.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V239)));}
  1293. T653:;
  1294.     if(!(number_compare(symbol_value(VV[110]),small_fixnum(2))<0)){
  1295.     goto T685;}
  1296.     {object V240 = sputprop((V213),VV[111],Ct);
  1297.     VMR18(V240)}
  1298. T685:;
  1299.     {object V241 = Cnil;
  1300.     VMR18(V241)}
  1301. }
  1302. /*    local entry for function ADD-DEBUG    */
  1303.  
  1304. static object LI19(V244,V245)
  1305.  
  1306. object V244;object V245;
  1307. {     VMB19 VMS19 VMV19
  1308. TTL:;
  1309.     {object V246 = putprop((V244),(V245),VV[112]);
  1310.     VMR19(V246)}
  1311. }
  1312. /*    local entry for function T3DEFUN    */
  1313.  
  1314. static object LI20(V252,V253,V254,V255,V256)
  1315.  
  1316. register object V252;register object V253;register object V254;object V255;object V256;
  1317. {     VMB20 VMS20 VMV20
  1318.     bds_check;
  1319. TTL:;
  1320.     {register object V257;
  1321.     V257= Cnil;
  1322.     bds_bind(VV[0],list(2,VV[47],(V252)));
  1323.     bds_bind(VV[16],(*(LnkLI293))(cadr((V254))));
  1324.     bds_bind(VV[113],Cnil);
  1325.     {register object V258;
  1326.     register object V259;
  1327.     V258= symbol_value(VV[73]);
  1328.     V259= car((V258));
  1329. T697:;
  1330.     if(!(endp((V258)))){
  1331.     goto T698;}
  1332.     goto T692;
  1333. T698:;{object V260;
  1334.     base[4]= cadddr((V259));
  1335.     vs_top=(vs_base=base+4)+1;
  1336.     (void) (*Lnk294)();
  1337.     vs_top=sup;
  1338.     V260= vs_base[0];
  1339.     if(V260==Cnil)goto T703;
  1340.     goto T702;
  1341. T703:;}
  1342.     base[4]= VV[114];
  1343.     vs_top=(vs_base=base+4)+1;
  1344.     Lerror();
  1345.     vs_top=sup;
  1346. T702:;
  1347.     if((car((V259)))==((V252))){
  1348.     goto T708;}
  1349.     goto T707;
  1350. T708:;
  1351.     if((cadr(cddddr((V259))))==Cnil){
  1352.     goto T710;}
  1353.     goto T707;
  1354. T710:;
  1355.     V257= (V259);
  1356.     if(((V257))==Cnil){
  1357.     goto T692;}
  1358.     goto T693;
  1359. T707:;
  1360.     V258= cdr((V258));
  1361.     V259= car((V258));
  1362.     goto T697;}
  1363. T693:;
  1364.     if(((VFUN_NARGS=1,(*(LnkLI286))((V252))))!=Cnil){
  1365.     goto T718;}
  1366.     V261= list(4,(V252),(V253),cadr((V257)),caddr((V257)));
  1367.     setq(VV[25],make_cons(/* INLINE-ARGS */V261,symbol_value(VV[25])));
  1368. T718:;
  1369.     V262= structure_ref(cadr((V254)),VV[58],1);
  1370.     (void)((*(LnkLI295))(/* INLINE-ARGS */V262,small_fixnum(0)));
  1371.     base[3]= VV[115];
  1372.     {object V263= caddr((V257));
  1373.     if((V263!= VV[85]))goto T725;
  1374.     base[4]= VV[116];
  1375.     goto T724;
  1376. T725:;
  1377.     if((V263!= VV[138]))goto T726;
  1378.     base[4]= VV[117];
  1379.     goto T724;
  1380. T726:;
  1381.     if((V263!= VV[139]))goto T727;
  1382.     base[4]= VV[118];
  1383.     goto T724;
  1384. T727:;
  1385.     if((V263!= VV[140]))goto T728;
  1386.     base[4]= VV[119];
  1387.     goto T724;
  1388. T728:;
  1389.     base[4]= VV[120];}
  1390. T724:;
  1391.     base[5]= (V252);
  1392.     base[6]= (V253);
  1393.     base[7]= (V254);
  1394.     base[8]= (V256);
  1395.     base[9]= (V257);
  1396.     vs_top=(vs_base=base+3)+7;
  1397.     (void) (*Lnk296)();
  1398.     vs_top=sup;
  1399.     goto T690;
  1400. T692:;
  1401.     if(((*(LnkLI291))((V252)))==Cnil){
  1402.     goto T735;}
  1403.     V264= structure_ref(cadr((V254)),VV[58],1);
  1404.     (void)((*(LnkLI295))(/* INLINE-ARGS */V264,small_fixnum(0)));
  1405.     base[3]= VV[121];
  1406.     base[4]= VV[120];
  1407.     base[5]= (V252);
  1408.     base[6]= (V253);
  1409.     base[7]= (V254);
  1410.     base[8]= (V256);
  1411.     vs_top=(vs_base=base+3)+6;
  1412.     (void) (*Lnk296)();
  1413.     vs_top=sup;
  1414.     goto T690;
  1415. T735:;
  1416.     V265= structure_ref(cadr((V254)),VV[58],1);
  1417.     (void)((*(LnkLI295))(/* INLINE-ARGS */V265,small_fixnum(2)));
  1418.     base[3]= VV[122];
  1419.     base[4]= VV[123];
  1420.     base[5]= (V252);
  1421.     base[6]= (V253);
  1422.     base[7]= (V254);
  1423.     base[8]= (V256);
  1424.     vs_top=(vs_base=base+3)+6;
  1425.     (void) (*Lnk296)();
  1426.     vs_top=sup;
  1427. T690:;
  1428.     (void)((*(LnkLI297))((V253)));
  1429.     {object V266 = (*(LnkLI298))((V252),(V254));
  1430.     bds_unwind1;
  1431.     bds_unwind1;
  1432.     bds_unwind1;
  1433.     VMR20(V266)}}
  1434. }
  1435. /*    function definition for T3DEFUN-AUX    */
  1436.  
  1437. static L21()
  1438. {register object *base=vs_base;
  1439.     register object *sup=base+VM21; VC21
  1440.     vs_reserve(VM21);
  1441.     bds_check;
  1442.     {object V267;
  1443.     object V268;
  1444.     if(vs_top-vs_base<2) too_few_arguments();
  1445.     V267=(base[0]);
  1446.     bds_bind(VV[124],base[1]);
  1447.     vs_base=vs_base+2;
  1448.     vs_top[0]=Cnil;
  1449.     {object *p=vs_top;
  1450.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1451.     V268=(base[2]);
  1452.     vs_top=sup;
  1453.     bds_bind(VV[14],Cnil);
  1454.     bds_bind(VV[125],small_fixnum(0));
  1455.     bds_bind(VV[126],small_fixnum(0));
  1456.     bds_bind(VV[127],small_fixnum(0));
  1457.     bds_bind(VV[128],small_fixnum(0));
  1458.     bds_bind(VV[129],Cnil);
  1459.     bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
  1460.     bds_bind(VV[131],(VV[124]->s.s_dbind));
  1461.     setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
  1462.     bds_bind(VV[132],symbol_value(VV[133]));
  1463.     bds_bind(VV[134],Cnil);
  1464.     bds_bind(VV[135],Cnil);
  1465.     bds_bind(VV[136],Cnil);
  1466.     bds_bind(VV[137],small_fixnum(0));
  1467.     base[16]= (V267);
  1468.     {object V269;
  1469.     V269= (V268);
  1470.      vs_top=base+17;
  1471.      while(!endp(V269))
  1472.      {vs_push(car(V269));V269=cdr(V269);}
  1473.     vs_base=base+17;}
  1474.     super_funcall_no_event(base[16]);
  1475.     bds_unwind1;
  1476.     bds_unwind1;
  1477.     bds_unwind1;
  1478.     bds_unwind1;
  1479.     bds_unwind1;
  1480.     bds_unwind1;
  1481.     bds_unwind1;
  1482.     bds_unwind1;
  1483.     bds_unwind1;
  1484.     bds_unwind1;
  1485.     bds_unwind1;
  1486.     bds_unwind1;
  1487.     bds_unwind1;
  1488.     bds_unwind1;
  1489.     return;
  1490.     }
  1491. }
  1492. /*    local entry for function T3DEFUN-LOCAL-ENTRY    */
  1493.  
  1494. static object LI22(V275,V276,V277,V278,V279)
  1495.  
  1496. object V275;object V276;object V277;object V278;object V279;
  1497. {     VMB22 VMS22 VMV22
  1498.     bds_check;
  1499. TTL:;
  1500.     {object V280;
  1501.     object V281;
  1502.     V280= Cnil;
  1503.     V281= caaddr((V277));
  1504.     {register object V282;
  1505.     object V283;
  1506.     V283= cadr((V279));
  1507.     V282= (V281);
  1508. T762:;
  1509.     if(!(endp((V282)))){
  1510.     goto T763;}
  1511.     goto T759;
  1512. T763:;
  1513.     V284= structure_ref(car((V282)),VV[65],1);
  1514.     if(!((/* INLINE-ARGS */V284)==(VV[67]))){
  1515.     goto T769;}
  1516.     V285= car((V282));
  1517.     V286= structure_ref(car((V282)),VV[65],4);
  1518.     V287= make_cons(/* INLINE-ARGS */V285,/* INLINE-ARGS */V286);
  1519.     V280= make_cons(/* INLINE-ARGS */V287,(V280));
  1520.     goto T767;
  1521. T769:;
  1522.     V288= car((V282));
  1523.     {object V290= car((V283));
  1524.     if((V290!= VV[85]))goto T773;
  1525.     V289= VV[85];
  1526.     goto T772;
  1527. T773:;
  1528.     if((V290!= VV[138]))goto T774;
  1529.     V289= VV[138];
  1530.     goto T772;
  1531. T774:;
  1532.     if((V290!= VV[139]))goto T775;
  1533.     V289= VV[139];
  1534.     goto T772;
  1535. T775:;
  1536.     if((V290!= VV[140]))goto T776;
  1537.     V289= VV[140];
  1538.     goto T772;
  1539. T776:;
  1540.     V289= VV[70];}
  1541. T772:;
  1542.     (void)(structure_set(/* INLINE-ARGS */V288,VV[65],1,V289));
  1543. T767:;
  1544.     V291= car((V282));
  1545.     setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
  1546.     (void)(structure_set(/* INLINE-ARGS */V291,VV[65],4,symbol_value(VV[84])));
  1547.     V282= cdr((V282));
  1548.     V283= cdr((V283));
  1549.     goto T762;}
  1550. T759:;
  1551.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[141],(V275))));
  1552.     princ_str("\nstatic ",VV[27]);
  1553.     V292= (*(LnkLI268))(caddr((V279)));
  1554.     (void)((*(LnkLI265))(/* INLINE-ARGS */V292));
  1555.     princ_str("LI",VV[27]);
  1556.     (void)((*(LnkLI265))((V276)));
  1557.     princ_str("();",VV[27]);
  1558.     princ_str("\nstatic ",VV[21]);
  1559.     V293= (*(LnkLI268))(caddr((V279)));
  1560.     (void)((*(LnkLI262))(/* INLINE-ARGS */V293));
  1561.     princ_str("LI",VV[21]);
  1562.     (void)((*(LnkLI262))((V276)));
  1563.     princ_char(40,VV[21]);
  1564.     (void)((*(LnkLI300))((V281),cadr((V279))));
  1565.     {object V294;
  1566.     V294= symbol_value(VV[132]);
  1567.     if((symbol_value(VV[143]))==Cnil){
  1568.     goto T800;}
  1569.     base[1]= make_cons((V275),(V281));
  1570.     goto T798;
  1571. T800:;
  1572.     base[1]= Cnil;
  1573. T798:;
  1574.     bds_bind(VV[142],base[1]);
  1575.     bds_bind(VV[130],symbol_value(VV[130]));
  1576.     princ_str("\n{    ",VV[21]);
  1577.     V295= structure_ref(cadr((V277)),VV[58],1);
  1578.     (void)((*(LnkLI301))(/* INLINE-ARGS */V295,(V276),VV[144]));
  1579.     princ_str(" VMB",VV[21]);
  1580.     (void)((*(LnkLI262))((V294)));
  1581.     princ_str(" VMS",VV[21]);
  1582.     (void)((*(LnkLI262))((V294)));
  1583.     princ_str(" VMV",VV[21]);
  1584.     (void)((*(LnkLI262))((V294)));
  1585.     if(((V278))==Cnil){
  1586.     goto T812;}
  1587.     princ_str("\n    bds_check;",VV[21]);
  1588. T812:;
  1589.     if((symbol_value(VV[145]))==Cnil){
  1590.     goto T816;}
  1591.     princ_str("\n    ihs_check;",VV[21]);
  1592. T816:;
  1593.     if(((VV[142]->s.s_dbind))==Cnil){
  1594.     goto T820;}
  1595.     (VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind));
  1596.     princ_str("\nTTL:;",VV[21]);
  1597. T820:;
  1598.     {register object V296;
  1599.     register object V297;
  1600.     V296= (V280);
  1601.     V297= car((V296));
  1602. T830:;
  1603.     if(!(endp((V296)))){
  1604.     goto T831;}
  1605.     goto T826;
  1606. T831:;
  1607.     princ_str("\n    bds_bind(VV[",VV[21]);
  1608.     (void)((*(LnkLI262))(cdr((V297))));
  1609.     princ_str("],V",VV[21]);
  1610.     V298= structure_ref(car((V297)),VV[65],4);
  1611.     (void)((*(LnkLI262))(/* INLINE-ARGS */V298));
  1612.     princ_str(");",VV[21]);
  1613.     (VV[130]->s.s_dbind)= make_cons(VV[147],(VV[130]->s.s_dbind));
  1614.     (void)(structure_set(car((V297)),VV[65],1,VV[67]));
  1615.     (void)(structure_set(car((V297)),VV[65],4,cdr((V297))));
  1616.     V296= cdr((V296));
  1617.     V297= car((V296));
  1618.     goto T830;}
  1619. T826:;
  1620.     base[3]= caddr(cddr((V277)));
  1621.     vs_top=(vs_base=base+3)+1;
  1622.     (void) (*Lnk302)();
  1623.     vs_top=sup;
  1624.     princ_str("\n}",VV[21]);
  1625.     {object V299 = (*(LnkLI303))((V294),caddr((V279)));
  1626.     bds_unwind1;
  1627.     bds_unwind1;
  1628.     VMR22(V299)}}}
  1629. }
  1630. /*    local entry for function SET-UP-VAR-CVS    */
  1631.  
  1632. static object LI23(V301)
  1633.  
  1634. object V301;
  1635. {     VMB23 VMS23 VMV23
  1636. TTL:;
  1637.     if((symbol_value(VV[148]))==Cnil){
  1638.     goto T855;}
  1639.     V302= (*(LnkLI304))();
  1640.     {object V303 = structure_set((V301),VV[65],2,/* INLINE-ARGS */V302);
  1641.     VMR23(V303)}
  1642. T855:;
  1643.     V304= (*(LnkLI305))();
  1644.     {object V305 = structure_set((V301),VV[65],2,/* INLINE-ARGS */V304);
  1645.     VMR23(V305)}
  1646. }
  1647. /*    local entry for function T3DEFUN-VARARG    */
  1648.  
  1649. static object LI24(V310,V311,V312,V313)
  1650.  
  1651. object V310;object V311;object V312;object V313;
  1652. {     VMB24 VMS24 VMV24
  1653.     bds_check;
  1654. TTL:;
  1655.     {object V314;
  1656.     register object V315;
  1657.     object V316;
  1658.     object V317;
  1659.     object V318;
  1660.     object V319;
  1661.     object V320;
  1662.     object V321;
  1663.     V314= Cnil;
  1664.     bds_bind(VV[148],Cnil);
  1665.     base[1]= Cnil;
  1666.     V315= Cnil;
  1667.     V316= Ct;
  1668.     V317= Cnil;
  1669.     bds_bind(VV[149],small_fixnum(0));
  1670.     V318= Cnil;
  1671.     V319= caddr((V312));
  1672.     V320= Cnil;{object V322;
  1673.     V322= caddr((V319));
  1674.     if(V322==Cnil)goto T865;
  1675.     V321= V322;
  1676.     goto T864;
  1677. T865:;}{object V323;
  1678.     V323= cadr((V319));
  1679.     if(V323==Cnil)goto T867;
  1680.     V321= V323;
  1681.     goto T864;
  1682. T867:;}
  1683.     V321= cadddr((V319));
  1684. T864:;
  1685.     {object V324;
  1686.     register object V325;
  1687.     V324= car((V319));
  1688.     V325= car((V324));
  1689. T873:;
  1690.     if(!(endp((V324)))){
  1691.     goto T874;}
  1692.     goto T869;
  1693. T874:;
  1694.     setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
  1695.     V326= list(2,VV[150],symbol_value(VV[84]));
  1696.     V314= make_cons(/* INLINE-ARGS */V326,(V314));
  1697.     V324= cdr((V324));
  1698.     V325= car((V324));
  1699.     goto T873;}
  1700. T869:;
  1701.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[151],(V310))));
  1702.     princ_str("\nstatic object LI",VV[27]);
  1703.     (void)((*(LnkLI265))((V311)));
  1704.     princ_str("();",VV[27]);
  1705.     princ_str("\nstatic object LI",VV[21]);
  1706.     (void)((*(LnkLI262))((V311)));
  1707.     princ_char(40,VV[21]);
  1708.     (void)((*(LnkLI306))((V314)));
  1709.     if(((V321))==Cnil){
  1710.     goto T896;}
  1711.     if(((V314))==Cnil){
  1712.     goto T899;}
  1713.     princ_char(44,VV[21]);
  1714. T899:;
  1715.     princ_str("va_alist",VV[21]);
  1716. T896:;
  1717.     princ_char(41,VV[21]);
  1718.     if(((V314))==Cnil){
  1719.     goto T906;}
  1720.     princ_str("\n    object ",VV[21]);
  1721.     (void)((*(LnkLI306))((V314)));
  1722.     princ_char(59,VV[21]);
  1723. T906:;
  1724.     if(((V321))==Cnil){
  1725.     goto T913;}
  1726.     princ_str("\n    va_dcl ",VV[21]);
  1727. T913:;
  1728.     {object V327;
  1729.     V327= symbol_value(VV[132]);
  1730.     if(symbol_value(VV[143])==Cnil){
  1731.     base[5]= Cnil;
  1732.     goto T918;}
  1733.     if((caddr((V319)))==Cnil){
  1734.     goto T919;}
  1735.     base[5]= Cnil;
  1736.     goto T918;
  1737. T919:;
  1738.     {object V328;
  1739.     object V329;
  1740.     V328= car((V319));
  1741.     V329= car((V328));
  1742. T926:;
  1743.     if(!(endp((V328)))){
  1744.     goto T927;}
  1745.     goto T921;
  1746. T927:;
  1747.     if((structure_ref((V329),VV[65],3))==Cnil){
  1748.     goto T931;}
  1749.     goto T922;
  1750. T931:;
  1751.     V328= cdr((V328));
  1752.     V329= car((V328));
  1753.     goto T926;}
  1754. T922:;
  1755.     base[5]= Cnil;
  1756.     goto T918;
  1757. T921:;
  1758.     if((cadr((V319)))==Cnil){
  1759.     goto T939;}
  1760.     base[5]= Cnil;
  1761.     goto T918;
  1762. T939:;
  1763.     if((car(cddddr((V319))))==Cnil){
  1764.     goto T941;}
  1765.     base[5]= Cnil;
  1766.     goto T918;
  1767. T941:;
  1768.     base[5]= make_cons((V310),car((V319)));
  1769. T918:;
  1770.     bds_bind(VV[142],base[5]);
  1771.     bds_bind(VV[130],symbol_value(VV[130]));
  1772.     princ_str("\n{    ",VV[21]);
  1773.     if(((V321))==Cnil){
  1774.     goto T945;}
  1775.     princ_str("\n    va_list ap;",VV[21]);
  1776. T945:;
  1777.     princ_str("\n    int narg = VFUN_NARGS;",VV[21]);
  1778.     V330= structure_ref(cadr((V312)),VV[58],1);
  1779.     (void)((*(LnkLI301))(/* INLINE-ARGS */V330,(V311),VV[144]));
  1780.     princ_str(" VMB",VV[21]);
  1781.     (void)((*(LnkLI262))((V327)));
  1782.     princ_str(" VMS",VV[21]);
  1783.     (void)((*(LnkLI262))((V327)));
  1784.     princ_str(" VMV",VV[21]);
  1785.     (void)((*(LnkLI262))((V327)));
  1786.     if(((V313))==Cnil){
  1787.     goto T959;}
  1788.     princ_str("\n    bds_check;",VV[21]);
  1789. T959:;
  1790.     if((symbol_value(VV[145]))==Cnil){
  1791.     goto T963;}
  1792.     princ_str("\n    ihs_check;",VV[21]);
  1793. T963:;
  1794.     if((V321)!=Cnil){
  1795.     goto T967;}
  1796.     princ_str("\n    if ( narg!= ",VV[21]);
  1797.     V331 = make_fixnum(length((V314)));
  1798.     (void)((*(LnkLI262))(V331));
  1799.     princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]);
  1800.     V332 = make_fixnum(length((V314)));
  1801.     (void)((*(LnkLI262))(V332));
  1802.     princ_str("));",VV[21]);
  1803. T967:;
  1804.     {object V333;
  1805.     object V334;
  1806.     V333= car((V319));
  1807.     V334= car((V333));
  1808. T978:;
  1809.     if(!(endp((V333)))){
  1810.     goto T979;}
  1811.     goto T974;
  1812. T979:;
  1813.     base[9]= (V334);
  1814.     vs_top=(vs_base=base+9)+1;
  1815.     L25(base);
  1816.     vs_top=sup;
  1817.     V333= cdr((V333));
  1818.     V334= car((V333));
  1819.     goto T978;}
  1820. T974:;
  1821.     {object V335;
  1822.     object V336;
  1823.     V335= cadr((V319));
  1824.     V336= car((V335));
  1825. T994:;
  1826.     if(!(endp((V335)))){
  1827.     goto T995;}
  1828.     goto T990;
  1829. T995:;
  1830.     base[9]= car((V336));
  1831.     vs_top=(vs_base=base+9)+1;
  1832.     L25(base);
  1833.     vs_top=sup;
  1834.     if((caddr((V336)))==Cnil){
  1835.     goto T1001;}
  1836.     base[9]= caddr((V336));
  1837.     vs_top=(vs_base=base+9)+1;
  1838.     L25(base);
  1839.     vs_top=sup;
  1840. T1001:;
  1841.     V335= cdr((V335));
  1842.     V336= car((V335));
  1843.     goto T994;}
  1844. T990:;
  1845.     if((caddr((V319)))==Cnil){
  1846.     goto T1010;}
  1847.     base[7]= caddr((V319));
  1848.     vs_top=(vs_base=base+7)+1;
  1849.     L25(base);
  1850.     vs_top=sup;
  1851. T1010:;
  1852.     {object V337;
  1853.     object V338;
  1854.     V337= car(cddddr((V319)));
  1855.     V338= car((V337));
  1856. T1017:;
  1857.     if(!(endp((V337)))){
  1858.     goto T1018;}
  1859.     goto T973;
  1860. T1018:;
  1861.     base[9]= cadr((V338));
  1862.     vs_top=(vs_base=base+9)+1;
  1863.     L25(base);
  1864.     vs_top=sup;
  1865.     if((cadddr((V338)))==Cnil){
  1866.     goto T1024;}
  1867.     base[9]= cadddr((V338));
  1868.     vs_top=(vs_base=base+9)+1;
  1869.     L25(base);
  1870.     vs_top=sup;
  1871. T1024:;
  1872.     V337= cdr((V337));
  1873.     V338= car((V337));
  1874.     goto T1017;}
  1875. T973:;
  1876.     if((symbol_value(VV[152]))!=Cnil){
  1877.     goto T1035;}
  1878.     if((symbol_value(VV[153]))==Cnil){
  1879.     goto T1033;}
  1880. T1035:;
  1881.     if((car((V319)))==Cnil){
  1882.     goto T1033;}
  1883.     princ_str("\n    if(narg <",VV[21]);
  1884.     V339 = make_fixnum(length(car((V319))));
  1885.     (void)((*(LnkLI262))(V339));
  1886.     princ_str(") too_few_arguments();",VV[21]);
  1887. T1033:;
  1888.     {object V340;
  1889.     object V341;
  1890.     V340= car((V319));
  1891.     V341= car((V340));
  1892. T1047:;
  1893.     if(!(endp((V340)))){
  1894.     goto T1048;}
  1895.     goto T1043;
  1896. T1048:;
  1897.     (void)((*(LnkLI307))((V341)));
  1898.     V340= cdr((V340));
  1899.     V341= car((V340));
  1900.     goto T1047;}
  1901. T1043:;
  1902.     {object V342;
  1903.     object V343;
  1904.     V342= cadr((V319));
  1905.     V343= car((V342));
  1906. T1062:;
  1907.     if(!(endp((V342)))){
  1908.     goto T1063;}
  1909.     goto T1058;
  1910. T1063:;
  1911.     (void)((*(LnkLI307))(car((V343))));
  1912.     V342= cdr((V342));
  1913.     V343= car((V342));
  1914.     goto T1062;}
  1915. T1058:;
  1916.     if((caddr((V319)))==Cnil){
  1917.     goto T1073;}
  1918.     (void)((*(LnkLI307))(caddr((V319))));
  1919. T1073:;
  1920.     if(((VV[148]->s.s_dbind))==Cnil){
  1921.     goto T1079;}
  1922.     V317= symbol_value(VV[125]);
  1923.     goto T1077;
  1924. T1079:;
  1925.     V317= symbol_value(VV[137]);
  1926. T1077:;
  1927.     {object V344;
  1928.     object V345;
  1929.     V344= car(cddddr((V319)));
  1930.     V345= car((V344));
  1931. T1085:;
  1932.     if(!(endp((V344)))){
  1933.     goto T1086;}
  1934.     goto T1081;
  1935. T1086:;
  1936.     (void)((*(LnkLI307))(cadr((V345))));
  1937.     V344= cdr((V344));
  1938.     V345= car((V344));
  1939.     goto T1085;}
  1940. T1081:;
  1941.     {object V346;
  1942.     object V347;
  1943.     V346= car(cddddr((V319)));
  1944.     V347= car((V346));
  1945. T1100:;
  1946.     if(!(endp((V346)))){
  1947.     goto T1101;}
  1948.     goto T1096;
  1949. T1101:;
  1950.     (void)((*(LnkLI307))(cadddr((V347))));
  1951.     V346= cdr((V346));
  1952.     V347= car((V346));
  1953.     goto T1100;}
  1954. T1096:;
  1955.     {object V348;
  1956.     object V349;
  1957.     V349= car((V319));
  1958.     V348= (V314);
  1959. T1114:;
  1960.     if(((V348))!=Cnil){
  1961.     goto T1115;}
  1962.     goto T1111;
  1963. T1115:;
  1964.     (void)((*(LnkLI308))(car((V349)),car((V348))));
  1965.     V348= cdr((V348));
  1966.     V349= cdr((V349));
  1967.     goto T1114;}
  1968. T1111:;
  1969.     if((cadr((V319)))==Cnil){
  1970.     goto T1124;}
  1971.     bds_bind(VV[129],symbol_value(VV[129]));
  1972.     bds_bind(VV[130],(VV[130]->s.s_dbind));
  1973.     bds_bind(VV[128],symbol_value(VV[128]));
  1974.     princ_str("\n    narg = narg - ",VV[21]);
  1975.     V350 = make_fixnum(length((V314)));
  1976.     (void)((*(LnkLI262))(V350));
  1977.     princ_char(59,VV[21]);
  1978.     {object V351;
  1979.     object V352;
  1980.     V351= cadr((V319));
  1981.     V352= car((V351));
  1982. T1135:;
  1983.     if(!(endp((V351)))){
  1984.     goto T1136;}
  1985.     bds_unwind1;
  1986.     bds_unwind1;
  1987.     bds_unwind1;
  1988.     goto T1127;
  1989. T1136:;
  1990.     setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1)));
  1991.     V353= make_cons(symbol_value(VV[154]),Cnil);
  1992.     V315= make_cons(/* INLINE-ARGS */V353,(V315));
  1993.     princ_str("\n    if (",VV[21]);
  1994.     if((cdr((V315)))==Cnil){
  1995.     goto T1148;}
  1996.     V354= VV[155];
  1997.     goto T1146;
  1998. T1148:;
  1999.     V354= VV[156];
  2000. T1146:;
  2001.     (void)((*(LnkLI262))(V354));
  2002.     princ_str("narg <= 0) ",VV[21]);
  2003.     if(type_of(car((V315)))!=t_cons)FEwrong_type_argument(Scons,car((V315)));
  2004.     (car((V315)))->c.c_cdr = Ct;
  2005.     (void)(car((V315)));
  2006.     princ_str("goto T",VV[21]);
  2007.     (void)((*(LnkLI262))(car(car((V315)))));
  2008.     princ_char(59,VV[21]);
  2009.     princ_str("\n    else {",VV[21]);
  2010.     if(((V320))!=Cnil){
  2011.     goto T1158;}
  2012.     V320= Ct;
  2013.     princ_str("\n    va_start(ap);",VV[21]);
  2014. T1158:;
  2015.     V355= car((V352));
  2016.     V356= make_cons(VV[157],Cnil);
  2017.     (void)((*(LnkLI308))(/* INLINE-ARGS */V355,/* INLINE-ARGS */V356));
  2018.     princ_char(125,VV[21]);
  2019.     if((caddr((V352)))==Cnil){
  2020.     goto T1167;}
  2021.     (void)((*(LnkLI308))(caddr((V352)),Ct));
  2022. T1167:;
  2023.     V351= cdr((V351));
  2024.     V352= car((V351));
  2025.     goto T1135;}
  2026. T1127:;
  2027.     V315= nreverse((V315));
  2028.     {object V357;
  2029.     setq(VV[154],number_plus(symbol_value(VV[154]),small_fixnum(1)));
  2030.     V357= make_cons(symbol_value(VV[154]),Cnil);
  2031.     princ_str("\n    --narg; ",VV[21]);
  2032.     if(type_of((V357))!=t_cons)FEwrong_type_argument(Scons,(V357));
  2033.     ((V357))->c.c_cdr = Ct;
  2034.     princ_str("goto T",VV[21]);
  2035.     (void)((*(LnkLI262))(car((V357))));
  2036.     princ_char(59,VV[21]);
  2037.     {object V358;
  2038.     object V359;
  2039.     V358= cadr((V319));
  2040.     V359= car((V358));
  2041. T1190:;
  2042.     if(!(endp((V358)))){
  2043.     goto T1191;}
  2044.     goto T1186;
  2045. T1191:;
  2046.     if((cdr(car((V315))))==Cnil){
  2047.     goto T1195;}
  2048.     princ_str("\nT",VV[21]);
  2049.     (void)((*(LnkLI262))(car(car((V315)))));
  2050.     princ_str(":;",VV[21]);
  2051. T1195:;
  2052.     {object V360;
  2053.     V360= car((V315));
  2054.     V315= cdr((V315));}
  2055.     (void)((*(LnkLI309))(car((V359)),cadr((V359))));
  2056.     if((caddr((V359)))==Cnil){
  2057.     goto T1206;}
  2058.     (void)((*(LnkLI308))(caddr((V359)),Cnil));
  2059. T1206:;
  2060.     V358= cdr((V358));
  2061.     V359= car((V358));
  2062.     goto T1190;}
  2063. T1186:;
  2064.     if((cdr((V357)))==Cnil){
  2065.     goto T1124;}
  2066.     princ_str("\nT",VV[21]);
  2067.     (void)((*(LnkLI262))(car((V357))));
  2068.     princ_str(":;",VV[21]);}
  2069. T1124:;
  2070.     if((caddr((V319)))==Cnil){
  2071.     goto T1219;}
  2072.     V318= (VFUN_NARGS=0,(*(LnkLI310))());
  2073.     {object V361;
  2074.     V361= cadr((V319));
  2075.     if(((V361))==Cnil){
  2076.     goto T1227;}
  2077.     goto T1224;
  2078. T1227:;
  2079.     princ_str("\n    narg= narg - ",VV[21]);
  2080.     V362 = make_fixnum(length(car((V319))));
  2081.     (void)((*(LnkLI262))(V362));
  2082.     princ_char(59,VV[21]);}
  2083. T1224:;
  2084.     if(((V320))!=Cnil){
  2085.     goto T1232;}
  2086.     V320= Ct;
  2087.     princ_str("\n    va_start(ap);",VV[21]);
  2088. T1232:;
  2089.     princ_str("\n    V",VV[21]);
  2090.     (void)((*(LnkLI262))((V318)));
  2091.     princ_str(" = ",VV[21]);
  2092.     V363= structure_ref(caddr((V319)),VV[65],5);
  2093.     if(!((/* INLINE-ARGS */V363)==(VV[159]))){
  2094.     goto T1243;}
  2095.     base[7]= Ct;
  2096.     goto T1242;
  2097. T1243:;
  2098.     base[7]= symbol_value(VV[158]);
  2099. T1242:;
  2100.     bds_bind(VV[158],base[7]);
  2101.     if((cadddr((V319)))==Cnil){
  2102.     goto T1247;}
  2103.     if(((VV[158]->s.s_dbind))==Cnil){
  2104.     goto T1250;}
  2105.     princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]);
  2106.     goto T1245;
  2107. T1250:;
  2108.     princ_str("make_list(narg);",VV[21]);
  2109.     goto T1245;
  2110. T1247:;
  2111.     if(((VV[158]->s.s_dbind))==Cnil){
  2112.     goto T1255;}
  2113.     princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]);
  2114.     goto T1245;
  2115. T1255:;
  2116.     princ_str("list_vector(narg,ap);",VV[21]);
  2117. T1245:;
  2118.     V364= caddr((V319));
  2119.     V365= list(2,VV[150],(V318));
  2120.     V366= (*(LnkLI308))(/* INLINE-ARGS */V364,/* INLINE-ARGS */V365);
  2121.     bds_unwind1;
  2122. T1219:;
  2123.     if((cadddr((V319)))==Cnil){
  2124.     goto T1259;}
  2125.     {object V367;
  2126.     V367= caddr((V319));
  2127.     if(((V367))==Cnil){
  2128.     goto T1265;}
  2129.     goto T1262;
  2130. T1265:;
  2131.     {object V368;
  2132.     V368= cadr((V319));
  2133.     if(((V368))==Cnil){
  2134.     goto T1269;}
  2135.     goto T1262;
  2136. T1269:;
  2137.     princ_str("\n    narg= narg - ",VV[21]);
  2138.     V369 = make_fixnum(length(car((V319))));
  2139.     (void)((*(LnkLI262))(V369));
  2140.     princ_char(59,VV[21]);}}
  2141. T1262:;
  2142.     if(((V320))!=Cnil){
  2143.     goto T1274;}
  2144.     V320= Ct;
  2145.     princ_str("\n    va_start(ap);",VV[21]);
  2146. T1274:;
  2147.     {object V370;
  2148.     object V371= car(cddddr((V319)));
  2149.     if(endp(V371)){
  2150.     V316= Cnil;
  2151.     goto T1281;}
  2152.     base[7]=V370=MMcons(Cnil,Cnil);
  2153. T1282:;
  2154.     (V370->c.c_car)= caddr((V371->c.c_car));
  2155.     if(endp(V371=MMcdr(V371))){
  2156.     V316= base[7];
  2157.     goto T1281;}
  2158.     V370=MMcdr(V370)=MMcons(Cnil,Cnil);
  2159.     goto T1282;}
  2160. T1281:;
  2161.     {object V372;
  2162.     object V373;
  2163.     V373= make_fixnum(length(car(cddddr((V319)))));
  2164.     V372= Cnil;
  2165.     {register object V374;
  2166.     object V375;
  2167.     object V376;
  2168.     V374= (V316);
  2169.     V375= car(cddddr((V319)));
  2170.     V376= car((V375));
  2171. T1290:;
  2172.     if(((V374))!=Cnil){
  2173.     goto T1291;}
  2174.     goto T1285;
  2175. T1291:;
  2176.     if(!((caar((V374)))==(VV[160]))){
  2177.     goto T1296;}
  2178.     if((caddr(car((V374))))==(Cnil)){
  2179.     goto T1295;}
  2180. T1296:;
  2181.     V372= Ct;
  2182. T1295:;
  2183.     if(!((caar((V374)))==(VV[160]))){
  2184.     goto T1302;}
  2185.     {object V377;
  2186.     V377= caddr(car((V374)));
  2187.     if(!(((V377))==(Cnil))){
  2188.     goto T1308;}
  2189.     goto T1306;
  2190. T1308:;
  2191.     if(type_of((V377))==t_cons){
  2192.     goto T1310;}
  2193.     goto T1302;
  2194. T1310:;
  2195.     {register object x= car((V377)),V378= VV[161];
  2196.     while(!endp(V378))
  2197.     if(eql(x,V378->c.c_car)){
  2198.     goto T1306;
  2199.     }else V378=V378->c.c_cdr;
  2200.     goto T1302;}}
  2201. T1306:;
  2202.     V379= structure_ref(cadddr((V376)),VV[65],1);
  2203.     if((/* INLINE-ARGS */V379)==(VV[162])){
  2204.     goto T1301;}
  2205. T1302:;
  2206.     V372= Ct;
  2207.     if(type_of(V374)!=t_cons)FEwrong_type_argument(Scons,V374);
  2208.     (V374)->c.c_car = small_fixnum(0);
  2209. T1301:;
  2210.     V374= cdr((V374));
  2211.     V375= cdr((V375));
  2212.     V376= car((V375));
  2213.     goto T1290;}
  2214. T1285:;
  2215.     if(!((length((V316)))>(15))){
  2216.     goto T1323;}
  2217.     V372= Ct;
  2218. T1323:;
  2219.     princ_str("\n    {",VV[21]);
  2220.     vs_base=vs_top;
  2221.     (void) (*Lnk311)();
  2222.     vs_top=sup;
  2223.     bds_bind(VV[21],symbol_value(VV[27]));
  2224.     if(((V372))==Cnil){
  2225.     goto T1331;}
  2226.     princ_char(10,VV[27]);
  2227.     princ_str("static int VK",VV[21]);
  2228.     (void)((*(LnkLI262))((V311)));
  2229.     princ_str("defaults[",VV[21]);
  2230.     V382 = make_fixnum(length((V316)));
  2231.     (void)((*(LnkLI262))(V382));
  2232.     princ_str("]={",VV[21]);
  2233.     {object V383;
  2234.     register object V384;
  2235.     V383= (V316);
  2236.     V384= Cnil;
  2237. T1343:;
  2238.     if(((V383))!=Cnil){
  2239.     goto T1344;}
  2240.     goto T1341;
  2241. T1344:;
  2242.     if(!(eql(car((V383)),small_fixnum(0)))){
  2243.     goto T1350;}
  2244.     princ_str("-1",VV[21]);
  2245.     goto T1348;
  2246. T1350:;
  2247.     V384= caddr(car((V383)));
  2248.     if(!(((V384))==(Cnil))){
  2249.     goto T1354;}
  2250.     princ_str("-2",VV[21]);
  2251.     goto T1348;
  2252. T1354:;
  2253.     if(!(type_of((V384))==t_cons)){
  2254.     goto T1359;}
  2255.     if(!((car((V384)))==(VV[163]))){
  2256.     goto T1359;}
  2257.     (void)((*(LnkLI262))(cadr((V384))));
  2258.     goto T1348;
  2259. T1359:;
  2260.     if(!(type_of((V384))==t_cons)){
  2261.     goto T1365;}
  2262.     if(!((car((V384)))==(VV[164]))){
  2263.     goto T1365;}
  2264.     V385= (*(LnkLI312))(caddr((V384)));
  2265.     (void)((*(LnkLI262))(/* INLINE-ARGS */V385));
  2266.     goto T1348;
  2267. T1365:;
  2268.     (void)((*(LnkLI313))());
  2269. T1348:;
  2270.     if((cdr((V383)))==Cnil){
  2271.     goto T1370;}
  2272.     princ_char(44,VV[21]);
  2273. T1370:;
  2274.     V383= cdr((V383));
  2275.     goto T1343;}
  2276. T1341:;
  2277.     princ_str("};",VV[21]);
  2278. T1331:;
  2279.     princ_char(10,VV[27]);
  2280.     princ_str("static struct { short n,allow_other_keys;",VV[21]);
  2281.     princ_str("int *defaults;",VV[21]);
  2282.     princ_str("\n     int keys[",VV[21]);
  2283.     (void)((*(LnkLI262))((V373)));
  2284.     princ_str("];",VV[21]);
  2285.     princ_str("} LI",VV[21]);
  2286.     (void)((*(LnkLI262))((V311)));
  2287.     princ_str("key=",VV[21]);
  2288.     princ_char(123,VV[21]);
  2289.     V386 = make_fixnum(length(car(cddddr((V319)))));
  2290.     (void)((*(LnkLI262))(V386));
  2291.     princ_char(44,VV[21]);
  2292.     if((cadr(cddddr((V319))))==Cnil){
  2293.     goto T1397;}
  2294.     V387= small_fixnum(1);
  2295.     goto T1395;
  2296. T1397:;
  2297.     V387= small_fixnum(0);
  2298. T1395:;
  2299.     (void)((*(LnkLI262))(V387));
  2300.     princ_char(44,VV[21]);
  2301.     if(((V372))==Cnil){
  2302.     goto T1402;}
  2303.     princ_str("VK",VV[21]);
  2304.     (void)((*(LnkLI262))((V311)));
  2305.     princ_str("defaults",VV[21]);
  2306.     goto T1400;
  2307. T1402:;
  2308.     princ_str("(int *)Cstd_key_defaults",VV[21]);
  2309. T1400:;
  2310.     if((car(cddddr((V319))))==Cnil){
  2311.     goto T1408;}
  2312.     princ_str(",{",VV[21]);
  2313.     {object V388;
  2314.     V388= reverse(car(cddddr((V319))));
  2315. T1416:;
  2316.     if(((V388))!=Cnil){
  2317.     goto T1417;}
  2318.     goto T1413;
  2319. T1417:;
  2320.     V389= (*(LnkLI314))(caar((V388)));
  2321.     (void)((*(LnkLI262))(/* INLINE-ARGS */V389));
  2322.     if((cdr((V388)))==Cnil){
  2323.     goto T1423;}
  2324.     princ_char(44,VV[21]);
  2325. T1423:;
  2326.     V388= cdr((V388));
  2327.     goto T1416;}
  2328. T1413:;
  2329.     princ_char(125,VV[21]);
  2330. T1408:;
  2331.     princ_str("};",VV[21]);
  2332.     bds_unwind1;
  2333.     if((caddr((V319)))==Cnil){
  2334.     goto T1434;}
  2335.     princ_str("\n    parse_key_rest(",VV[21]);
  2336.     V390= list(2,VV[150],(V318));
  2337.     (void)((*(LnkLI262))(/* INLINE-ARGS */V390));
  2338.     princ_char(44,VV[21]);
  2339.     goto T1432;
  2340. T1434:;
  2341.     princ_str("\n    parse_key_new(",VV[21]);
  2342. T1432:;
  2343.     if(!(eql(small_fixnum(0),symbol_value(VV[137])))){
  2344.     goto T1440;}
  2345.     setq(VV[137],small_fixnum(1));
  2346. T1440:;
  2347.     princ_str("narg,",VV[21]);
  2348.     if(((VV[148]->s.s_dbind))==Cnil){
  2349.     goto T1448;}
  2350.     V391= VV[165];
  2351.     goto T1446;
  2352. T1448:;
  2353.     V391= VV[166];
  2354. T1446:;
  2355.     (void)((*(LnkLI262))(V391));
  2356.     princ_char(43,VV[21]);
  2357.     (void)((*(LnkLI262))((V317)));
  2358.     princ_str(",&LI",VV[21]);
  2359.     (void)((*(LnkLI262))((V311)));
  2360.     princ_str("key,ap);",VV[21]);}
  2361. T1259:;
  2362.     {object V392;
  2363.     register object V393;
  2364.     V392= car(cddddr((V319)));
  2365.     V393= car((V392));
  2366. T1459:;
  2367.     if(!(endp((V392)))){
  2368.     goto T1460;}
  2369.     goto T1455;
  2370. T1460:;
  2371.     {object V395;
  2372.     V395= car((V316));
  2373.     V316= cdr((V316));
  2374.     V394= (V395);}
  2375.     if(eql(small_fixnum(0),V394)){
  2376.     goto T1466;}
  2377.     (void)((*(LnkLI315))(cadr((V393))));
  2378.     goto T1464;
  2379. T1466:;
  2380.     princ_str("\n    if(",VV[21]);
  2381.     V396= structure_ref(cadr((V393)),VV[65],2);
  2382.     (void)((*(LnkLI316))(/* INLINE-ARGS */V396));
  2383.     princ_str("==0){",VV[21]);
  2384.     bds_bind(VV[129],symbol_value(VV[129]));
  2385.     bds_bind(VV[130],(VV[130]->s.s_dbind));
  2386.     bds_bind(VV[128],symbol_value(VV[128]));
  2387.     V397= (*(LnkLI309))(cadr((V393)),caddr((V393)));
  2388.     bds_unwind1;
  2389.     bds_unwind1;
  2390.     bds_unwind1;
  2391.     V398= structure_ref(cadddr((V393)),VV[65],1);
  2392.     if((/* INLINE-ARGS */V398)==(VV[162])){
  2393.     goto T1478;}
  2394.     (void)((*(LnkLI308))(cadddr((V393)),Cnil));
  2395. T1478:;
  2396.     princ_str("\n    }else{",VV[21]);
  2397.     (void)((*(LnkLI315))(cadr((V393))));
  2398.     V399= structure_ref(cadddr((V393)),VV[65],1);
  2399.     if((/* INLINE-ARGS */V399)==(VV[162])){
  2400.     goto T1484;}
  2401.     (void)((*(LnkLI308))(cadddr((V393)),Ct));
  2402. T1484:;
  2403.     princ_char(125,VV[21]);
  2404. T1464:;
  2405.     V392= cdr((V392));
  2406.     V393= car((V392));
  2407.     goto T1459;}
  2408. T1455:;
  2409.     if(((VV[142]->s.s_dbind))==Cnil){
  2410.     goto T1493;}
  2411.     (VV[130]->s.s_dbind)= make_cons(VV[146],(VV[130]->s.s_dbind));
  2412.     princ_str("\nTTL:;",VV[21]);
  2413. T1493:;
  2414.     base[7]= caddr(cddr((V312)));
  2415.     vs_top=(vs_base=base+7)+1;
  2416.     (void) (*Lnk302)();
  2417.     vs_top=sup;
  2418.     princ_char(125,VV[21]);
  2419.     if((base[1])==Cnil){
  2420.     goto T1503;}
  2421.     princ_str("\n    }",VV[21]);
  2422. T1503:;
  2423.     (void)((*(LnkLI317))());
  2424.     V400= get((V310),VV[74],Cnil);
  2425.     {object V401 = (*(LnkLI303))((V327),V400);
  2426.     bds_unwind1;
  2427.     bds_unwind1;
  2428.     bds_unwind1;
  2429.     bds_unwind1;
  2430.     VMR24(V401)}}}
  2431. }
  2432. /*    local entry for function T3DEFUN-NORMAL    */
  2433.  
  2434. static object LI26(V406,V407,V408,V409)
  2435.  
  2436. object V406;register object V407;object V408;object V409;
  2437. {     VMB25 VMS25 VMV25
  2438. TTL:;
  2439.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[167],(V406))));
  2440.     if(!(type_of((V407))==t_fixnum||
  2441. type_of((V407))==t_bignum||
  2442. type_of((V407))==t_ratio||
  2443. type_of((V407))==t_shortfloat||
  2444. type_of((V407))==t_longfloat||
  2445. type_of((V407))==t_complex)){
  2446.     goto T1512;}
  2447.     princ_str("\nstatic L",VV[21]);
  2448.     (void)((*(LnkLI262))((V407)));
  2449.     princ_str("()",VV[21]);
  2450.     goto T1510;
  2451. T1512:;
  2452.     princ_char(10,VV[21]);
  2453.     (void)((*(LnkLI262))((V407)));
  2454.     princ_str("()",VV[21]);
  2455. T1510:;
  2456.     princ_str("\n{",VV[21]);
  2457.     princ_str("register object *",VV[21]);
  2458.     (void)((*(LnkLI262))(symbol_value(VV[16])));
  2459.     princ_str("base=vs_base;",VV[21]);
  2460.     V410= structure_ref(cadr((V408)),VV[58],1);
  2461.     (void)((*(LnkLI301))(/* INLINE-ARGS */V410,(V407),VV[144]));
  2462.     princ_str("\n    register object *",VV[21]);
  2463.     (void)((*(LnkLI262))(symbol_value(VV[16])));
  2464.     princ_str("sup=base+VM",VV[21]);
  2465.     (void)((*(LnkLI262))(symbol_value(VV[132])));
  2466.     princ_char(59,VV[21]);
  2467.     princ_str(" VC",VV[21]);
  2468.     (void)((*(LnkLI262))(symbol_value(VV[132])));
  2469.     if((symbol_value(VV[152]))==Cnil){
  2470.     goto T1537;}
  2471.     princ_str("\n    vs_reserve(VM",VV[21]);
  2472.     (void)((*(LnkLI262))(symbol_value(VV[132])));
  2473.     princ_str(");",VV[21]);
  2474.     goto T1535;
  2475. T1537:;
  2476.     princ_str("\n    vs_check;",VV[21]);
  2477. T1535:;
  2478.     if(((V409))==Cnil){
  2479.     goto T1543;}
  2480.     princ_str("\n    bds_check;",VV[21]);
  2481. T1543:;
  2482.     if((symbol_value(VV[145]))==Cnil){
  2483.     goto T1547;}
  2484.     princ_str("\n    ihs_check;",VV[21]);
  2485. T1547:;
  2486.     (void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V408)),caddr(cddr((V408))),(V406))));
  2487.     princ_str("\n}",VV[21]);
  2488.     V411= make_cons(symbol_value(VV[132]),symbol_value(VV[126]));
  2489.     setq(VV[29],make_cons(/* INLINE-ARGS */V411,symbol_value(VV[29])));
  2490.     princ_str("\n#define VC",VV[27]);
  2491.     (void)((*(LnkLI265))(symbol_value(VV[132])));
  2492.     {object V412 = (*(LnkLI319))();
  2493.     VMR25(V412)}
  2494. }
  2495. /*    local entry for function WT-V*-MACROS    */
  2496.  
  2497. static object LI27(V415,V416)
  2498.  
  2499. register object V415;object V416;
  2500. {     VMB26 VMS26 VMV26
  2501. TTL:;
  2502.     V417= make_cons((V415),symbol_value(VV[126]));
  2503.     setq(VV[29],make_cons(/* INLINE-ARGS */V417,symbol_value(VV[29])));
  2504.     if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
  2505.     goto T1563;}
  2506.     if((symbol_value(VV[134]))!=Cnil){
  2507.     goto T1563;}
  2508.     if((symbol_value(VV[136]))!=Cnil){
  2509.     goto T1563;}
  2510.     princ_str("\n#define VMB",VV[27]);
  2511.     (void)((*(LnkLI265))((V415)));
  2512.     goto T1561;
  2513. T1563:;
  2514.     princ_str("\n#define VMB",VV[27]);
  2515.     (void)((*(LnkLI265))((V415)));
  2516.     princ_char(32,VV[27]);
  2517.     princ_str("register object *",VV[27]);
  2518.     (void)((*(LnkLI265))(symbol_value(VV[16])));
  2519.     princ_str("base=vs_top;",VV[27]);
  2520. T1561:;
  2521.     (void)((*(LnkLI319))());
  2522.     if((symbol_value(VV[134]))==Cnil){
  2523.     goto T1580;}
  2524.     princ_str("\n#define VMS",VV[27]);
  2525.     (void)((*(LnkLI265))((V415)));
  2526.     princ_char(32,VV[27]);
  2527.     princ_str(" register object *",VV[27]);
  2528.     (void)((*(LnkLI265))(symbol_value(VV[16])));
  2529.     princ_str("sup=vs_top+",VV[27]);
  2530.     (void)((*(LnkLI265))(symbol_value(VV[126])));
  2531.     princ_str(";vs_top=sup;",VV[27]);
  2532.     goto T1578;
  2533. T1580:;
  2534.     if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
  2535.     goto T1591;}
  2536.     princ_str("\n#define VMS",VV[27]);
  2537.     (void)((*(LnkLI265))((V415)));
  2538.     goto T1578;
  2539. T1591:;
  2540.     princ_str("\n#define VMS",VV[27]);
  2541.     (void)((*(LnkLI265))((V415)));
  2542.     princ_str(" vs_top += ",VV[27]);
  2543.     (void)((*(LnkLI265))(symbol_value(VV[126])));
  2544.     princ_char(59,VV[27]);
  2545. T1578:;
  2546.     if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
  2547.     goto T1602;}
  2548.     princ_str("\n#define VMV",VV[27]);
  2549.     (void)((*(LnkLI265))((V415)));
  2550.     goto T1600;
  2551. T1602:;
  2552.     if((symbol_value(VV[152]))==Cnil){
  2553.     goto T1607;}
  2554.     princ_str("\n#define VMV",VV[27]);
  2555.     (void)((*(LnkLI265))((V415)));
  2556.     princ_str(" vs_reserve(",VV[27]);
  2557.     (void)((*(LnkLI265))(symbol_value(VV[126])));
  2558.     princ_str(");",VV[27]);
  2559.     goto T1600;
  2560. T1607:;
  2561.     princ_str("\n#define VMV",VV[27]);
  2562.     (void)((*(LnkLI265))((V415)));
  2563.     princ_str(" vs_check;",VV[27]);
  2564. T1600:;
  2565.     if(!(number_compare(small_fixnum(0),symbol_value(VV[126]))==0)){
  2566.     goto T1618;}
  2567.     princ_str("\n#define VMR",VV[27]);
  2568.     (void)((*(LnkLI265))((V415)));
  2569.     princ_str("(VMT",VV[27]);
  2570.     (void)((*(LnkLI265))((V415)));
  2571.     princ_str(") return(VMT",VV[27]);
  2572.     (void)((*(LnkLI265))((V415)));
  2573.     princ_str(");",VV[27]);
  2574.     {object V418 = Cnil;
  2575.     VMR26(V418)}
  2576. T1618:;
  2577.     princ_str("\n#define VMR",VV[27]);
  2578.     (void)((*(LnkLI265))((V415)));
  2579.     princ_str("(VMT",VV[27]);
  2580.     (void)((*(LnkLI265))((V415)));
  2581.     princ_str(") vs_top=base ; return(VMT",VV[27]);
  2582.     (void)((*(LnkLI265))((V415)));
  2583.     princ_str(");",VV[27]);
  2584.     {object V419 = Cnil;
  2585.     VMR26(V419)}
  2586. }
  2587. /*    local entry for function WT-REQUIREDS    */
  2588.  
  2589. static object LI28(V422,V423)
  2590.  
  2591. object V422;object V423;
  2592. {     VMB27 VMS27 VMV27
  2593. TTL:;
  2594.     {register object V424;
  2595.     V424= (V422);
  2596. T1636:;
  2597.     if(!(endp((V424)))){
  2598.     goto T1637;}
  2599.     goto T1634;
  2600. T1637:;
  2601.     {register object V425;
  2602.     setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
  2603.     V425= symbol_value(VV[84]);
  2604.     (void)(structure_set(car((V424)),VV[65],4,(V425)));
  2605.     princ_char(86,VV[21]);
  2606.     (void)((*(LnkLI262))((V425)));}
  2607.     if(endp(cdr((V424)))){
  2608.     goto T1647;}
  2609.     princ_char(44,VV[21]);
  2610. T1647:;
  2611.     V424= cdr((V424));
  2612.     goto T1636;}
  2613. T1634:;
  2614.     princ_str(")\n",VV[21]);
  2615.     if(((V422))==Cnil){
  2616.     goto T1657;}
  2617.     princ_char(10,VV[21]);
  2618.     {register object V426;
  2619.     register object V427;
  2620.     register object V428;
  2621.     V426= (V422);
  2622.     V427= (V423);
  2623.     V428= Cnil;
  2624. T1661:;
  2625.     if(!(endp((V426)))){
  2626.     goto T1662;}
  2627.     princ_char(59,VV[21]);
  2628.     {object V429 = Cnil;
  2629.     VMR27(V429)}
  2630. T1662:;
  2631.     if(((V428))==Cnil){
  2632.     goto T1667;}
  2633.     princ_char(59,VV[21]);
  2634. T1667:;
  2635.     (void)((*(LnkLI262))(symbol_value(VV[16])));
  2636.     V430= (*(LnkLI320))(car((V426)));
  2637.     (void)((*(LnkLI262))(/* INLINE-ARGS */V430));
  2638.     V431= (*(LnkLI268))(car((V427)));
  2639.     (void)((*(LnkLI262))(/* INLINE-ARGS */V431));
  2640.     V428= car((V427));
  2641.     princ_char(86,VV[21]);
  2642.     V432= structure_ref(car((V426)),VV[65],4);
  2643.     (void)((*(LnkLI262))(/* INLINE-ARGS */V432));
  2644.     V426= cdr((V426));
  2645.     V427= cdr((V427));
  2646.     goto T1661;}
  2647. T1657:;
  2648.     {object V433 = Cnil;
  2649.     VMR27(V433)}
  2650. }
  2651. /*    local entry for function ADD-DEBUG-INFO    */
  2652.  
  2653. static object LI29(V436,V437)
  2654.  
  2655. object V436;object V437;
  2656. {     VMB28 VMS28 VMV28
  2657. TTL:;
  2658.     {object V438;
  2659.     V438= Cnil;
  2660.     {object V439;
  2661.     V439= (number_compare(symbol_value(VV[110]),small_fixnum(2))>=0?Ct:Cnil);
  2662.     if(((V439))==Cnil){
  2663.     goto T1687;}
  2664.     {object V440 = (V439);
  2665.     VMR28(V440)}
  2666. T1687:;
  2667.     if((get((V436),VV[111],Cnil))!=Cnil){
  2668.     goto T1690;}
  2669.     {object V441 = (VFUN_NARGS=2,(*(LnkLI321))(VV[168],(V436)));
  2670.     VMR28(V441)}
  2671. T1690:;
  2672.     (void)(remprop((V436),VV[111]));
  2673.     {register object V442;
  2674.     V442= small_fixnum(0);
  2675.     {register object V443;
  2676.     register object V444;
  2677.     V443= structure_ref(cadr((V437)),VV[58],1);
  2678.     V444= car((V443));
  2679. T1697:;
  2680.     if(!(endp((V443)))){
  2681.     goto T1698;}
  2682.     goto T1693;
  2683. T1698:;
  2684.     V445= structure_ref((V444),VV[65],2);
  2685.     if(!(type_of(/* INLINE-ARGS */V445)==t_cons)){
  2686.     goto T1702;}
  2687.     V446= structure_ref((V444),VV[65],2);
  2688.     if(!(type_of(cdr(/* INLINE-ARGS */V446))==t_fixnum)){
  2689.     goto T1702;}
  2690.     V447= structure_ref((V444),VV[65],2);
  2691.     {object V448= cdr(/* INLINE-ARGS */V447);
  2692.     V442= (number_compare((V442),V448)>=0?((V442)):V448);}
  2693. T1702:;
  2694.     V443= cdr((V443));
  2695.     V444= car((V443));
  2696.     goto T1697;}
  2697. T1693:;
  2698.     base[0]= one_plus((V442));
  2699.     vs_top=(vs_base=base+0)+1;
  2700.     Lmake_list();
  2701.     vs_top=sup;
  2702.     V438= vs_base[0];
  2703.     {register object V449;
  2704.     register object V450;
  2705.     V449= structure_ref(cadr((V437)),VV[58],1);
  2706.     V450= car((V449));
  2707. T1720:;
  2708.     if(!(endp((V449)))){
  2709.     goto T1721;}
  2710.     goto T1716;
  2711. T1721:;
  2712.     V451= structure_ref((V450),VV[65],2);
  2713.     if(!(type_of(/* INLINE-ARGS */V451)==t_cons)){
  2714.     goto T1725;}
  2715.     V452= structure_ref((V450),VV[65],2);
  2716.     if(!(type_of(cdr(/* INLINE-ARGS */V452))==t_fixnum)){
  2717.     goto T1725;}
  2718.     {object V453;
  2719.     register object V455;
  2720.     V456= structure_ref((V450),VV[65],2);
  2721.     V453= cdr(/* INLINE-ARGS */V456);
  2722.     V455= structure_ref((V450),VV[65],0);
  2723.     if(type_of(nthcdr(fixint((V453)),V438))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V453)),V438));
  2724.     (nthcdr(fixint((V453)),V438))->c.c_car = (V455);
  2725.     (void)(nthcdr(fixint((V453)),V438));}
  2726. T1725:;
  2727.     V449= cdr((V449));
  2728.     V450= car((V449));
  2729.     goto T1720;}
  2730. T1716:;
  2731.     (void)(sputprop((V436),VV[112],(V438)));
  2732.     {object V457;
  2733.     V457= get((V436),VV[112],Cnil);
  2734.     if(((V457))==Cnil){
  2735.     goto T1741;}
  2736.     if((cdr((V457)))!=Cnil){
  2737.     goto T1740;}
  2738.     if((car((V457)))==Cnil){
  2739.     goto T1741;}
  2740. T1740:;
  2741.     V458= list(2,VV[87],(V436));
  2742.     V459= list(3,VV[112],/* INLINE-ARGS */V458,list(2,VV[87],(V457)));
  2743.     {object V460 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V459));
  2744.     VMR28(V460)}
  2745. T1741:;
  2746.     {object V461 = Cnil;
  2747.     VMR28(V461)}}}}}
  2748. }
  2749. /*    local entry for function ANALYZE-REGS    */
  2750.  
  2751. static int LI30(V464,V465)
  2752.  
  2753. object V464;object V465;
  2754. {     VMB29 VMS29 VMV29
  2755. TTL:;
  2756.     {object V466;
  2757.     V466= number_minus(symbol_value(VV[169]),(V465));
  2758.     if(!(number_compare(small_fixnum(0),symbol_value(VV[170]))==0)){
  2759.     goto T1749;}
  2760.     V467= (VFUN_NARGS=1,(*(LnkLI323))((V464)));
  2761.     {int V468 = (*(LnkLI322))(/* INLINE-ARGS */V467,(V466));
  2762.     VMR29(V468)}
  2763. T1749:;
  2764.     {register object V469;
  2765.     register object V470;
  2766.     V469= Cnil;
  2767.     V470= Cnil;
  2768.     {register object V471;
  2769.     register object V472;
  2770.     V471= (V464);
  2771.     V472= car((V471));
  2772. T1755:;
  2773.     if(!(endp((V471)))){
  2774.     goto T1756;}
  2775.     goto T1751;
  2776. T1756:;
  2777.     V474= structure_ref((V472),VV[65],5);
  2778.     {register object x= /* INLINE-ARGS */V474,V473= VV[171];
  2779.     while(!endp(V473))
  2780.     if(x==(V473->c.c_car)){
  2781.     goto T1763;
  2782.     }else V473=V473->c.c_cdr;
  2783.     goto T1762;}
  2784. T1763:;{object V475;
  2785.     {register object x= (V472),V476= (V470);
  2786.     while(!endp(V476))
  2787.     if(eql(x,V476->c.c_car)){
  2788.     V475= V476;
  2789.     goto T1765;
  2790.     }else V476=V476->c.c_cdr;
  2791.     V475= Cnil;}
  2792. T1765:;
  2793.     if(V475==Cnil)goto T1764;
  2794.     goto T1760;
  2795. T1764:;}
  2796.     V470= make_cons((V472),(V470));
  2797.     goto T1760;
  2798. T1762:;{object V477;
  2799.     {register object x= (V472),V478= (V469);
  2800.     while(!endp(V478))
  2801.     if(x==(V478->c.c_car)){
  2802.     V477= V478;
  2803.     goto T1768;
  2804.     }else V478=V478->c.c_cdr;
  2805.     V477= Cnil;}
  2806. T1768:;
  2807.     if(V477==Cnil)goto T1767;
  2808.     goto T1760;
  2809. T1767:;}
  2810.     V470= make_cons((V472),(V470));
  2811. T1760:;
  2812.     V471= cdr((V471));
  2813.     V472= car((V471));
  2814.     goto T1755;}
  2815. T1751:;
  2816.     (void)((*(LnkLI322))((V469),(V466)));
  2817.     {int V479 = (*(LnkLI322))((V470),symbol_value(VV[170]));
  2818.     VMR29(V479)}}}
  2819. }
  2820. /*    local entry for function ANALYZE-REGS1    */
  2821.  
  2822. static int LI31(V482,V483)
  2823.  
  2824. object V482;object V483;
  2825. {     VMB30 VMS30 VMV30
  2826. TTL:;
  2827.     {register int V484;
  2828.     register int V485;
  2829.     int V486;
  2830.     int V487;
  2831.     register int V488;
  2832.     V484= 0;
  2833.     V485= 3;
  2834.     V486= 100000;
  2835.     V487= fix((V483));
  2836.     V488= 0;
  2837.     V482= (VFUN_NARGS=1,(*(LnkLI323))((V482)));
  2838. T1784:;
  2839.     {register object V489;
  2840.     object V490;
  2841.     V489= (V482);
  2842.     V490= car((V489));
  2843. T1790:;
  2844.     if(!(endp((V489)))){
  2845.     goto T1791;}
  2846.     goto T1786;
  2847. T1791:;
  2848.     V484= fix(structure_ref((V490),VV[65],6));
  2849.     if(!((V484)>=(V485))){
  2850.     goto T1797;}
  2851.     V488= (V488)+(1);
  2852.     if(!((V484)<(V486))){
  2853.     goto T1802;}
  2854.     V486= V484;
  2855. T1802:;
  2856.     if(!((V488)>(V487))){
  2857.     goto T1797;}
  2858.     goto T1785;
  2859. T1797:;
  2860.     V489= cdr((V489));
  2861.     V490= car((V489));
  2862.     goto T1790;}
  2863. T1786:;
  2864.     if(!((V488)<(V487))){
  2865.     goto T1813;}
  2866.     V485= (V485)-(1);
  2867. T1813:;
  2868.     {register object V491;
  2869.     register object V492;
  2870.     V491= (V482);
  2871.     V492= car((V491));
  2872. T1821:;
  2873.     if(!(endp((V491)))){
  2874.     goto T1822;}
  2875.     goto T1817;
  2876. T1822:;
  2877.     {int V493= fix(structure_ref((V492),VV[65],6));
  2878.     if(!((/* INLINE-ARGS */V493)<(V485))){
  2879.     goto T1826;}}
  2880.     (void)(structure_set((V492),VV[65],6,small_fixnum(0)));
  2881. T1826:;
  2882.     V491= cdr((V491));
  2883.     V492= car((V491));
  2884.     goto T1821;}
  2885. T1817:;
  2886.     {int V494 = V485;
  2887.     VMR30(V494)}
  2888. T1785:;
  2889.     V488= 0;
  2890.     V485= (V486)+(1);
  2891.     V486= 1000000;
  2892.     goto T1784;}
  2893. }
  2894. /*    local entry for function WT-GLOBAL-ENTRY    */
  2895.  
  2896. static object LI32(V499,V500,V501,V502)
  2897.  
  2898. object V499;object V500;object V501;object V502;
  2899. {     VMB31 VMS31 VMV31
  2900. TTL:;
  2901.     if((get((V499),VV[98],Cnil))==Cnil){
  2902.     goto T1841;}
  2903.     {object V503 = Cnil;
  2904.     VMR31(V503)}
  2905. T1841:;
  2906.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[174],(V499))));
  2907.     princ_str("\nstatic L",VV[21]);
  2908.     (void)((*(LnkLI262))((V500)));
  2909.     princ_str("()",VV[21]);
  2910.     princ_str("\n{    register object *base=vs_base;",VV[21]);
  2911.     if((symbol_value(VV[152]))!=Cnil){
  2912.     goto T1852;}
  2913.     if((symbol_value(VV[153]))==Cnil){
  2914.     goto T1851;}
  2915. T1852:;
  2916.     princ_str("\n    check_arg(",VV[21]);
  2917.     V504 = make_fixnum(length((V501)));
  2918.     (void)((*(LnkLI262))(V504));
  2919.     princ_str(");",VV[21]);
  2920. T1851:;
  2921.     princ_str("\n    base[0]=",VV[21]);
  2922.     {object V506= (V502);
  2923.     if((V506!= VV[85]))goto T1863;
  2924.     if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){
  2925.     goto T1865;}
  2926.     V505= VV[175];
  2927.     goto T1862;
  2928. T1865:;
  2929.     V505= VV[176];
  2930.     goto T1862;
  2931. T1863:;
  2932.     if((V506!= VV[138]))goto T1867;
  2933.     V505= VV[177];
  2934.     goto T1862;
  2935. T1867:;
  2936.     if((V506!= VV[139]))goto T1868;
  2937.     V505= VV[178];
  2938.     goto T1862;
  2939. T1868:;
  2940.     if((V506!= VV[140]))goto T1869;
  2941.     V505= VV[179];
  2942.     goto T1862;
  2943. T1869:;
  2944.     V505= VV[180];}
  2945. T1862:;
  2946.     (void)((*(LnkLI262))(V505));
  2947.     princ_str("(LI",VV[21]);
  2948.     (void)((*(LnkLI262))((V500)));
  2949.     princ_char(40,VV[21]);
  2950.     {register object V507;
  2951.     register int V508;
  2952.     V508= 0;
  2953.     V507= (V501);
  2954. T1876:;
  2955.     if(!(endp((V507)))){
  2956.     goto T1877;}
  2957.     goto T1873;
  2958. T1877:;
  2959.     {object V510= car((V507));
  2960.     if((V510!= VV[85]))goto T1884;
  2961.     V509= VV[181];
  2962.     goto T1883;
  2963. T1884:;
  2964.     if((V510!= VV[138]))goto T1885;
  2965.     V509= VV[182];
  2966.     goto T1883;
  2967. T1885:;
  2968.     if((V510!= VV[139]))goto T1886;
  2969.     V509= VV[183];
  2970.     goto T1883;
  2971. T1886:;
  2972.     if((V510!= VV[140]))goto T1887;
  2973.     V509= VV[184];
  2974.     goto T1883;
  2975. T1887:;
  2976.     V509= VV[185];}
  2977. T1883:;
  2978.     (void)((*(LnkLI262))(V509));
  2979.     princ_str("(base[",VV[21]);
  2980.     V511 = make_fixnum(V508);
  2981.     (void)((*(LnkLI262))(V511));
  2982.     princ_str("])",VV[21]);
  2983.     if(endp(cdr((V507)))){
  2984.     goto T1891;}
  2985.     princ_char(44,VV[21]);
  2986. T1891:;
  2987.     V507= cdr((V507));
  2988.     V508= (V508)+1;
  2989.     goto T1876;}
  2990. T1873:;
  2991.     princ_str("));",VV[21]);
  2992.     princ_str("\n    vs_top=(vs_base=base)+1;",VV[21]);
  2993.     princ_str("\n}",VV[21]);
  2994.     {object V512 = Cnil;
  2995.     VMR31(V512)}
  2996. }
  2997. /*    local entry for function REP-TYPE    */
  2998.  
  2999. static object LI33(V514)
  3000.  
  3001. object V514;
  3002. {     VMB32 VMS32 VMV32
  3003. TTL:;
  3004.     {object V515= (V514);
  3005.     if((V515!= VV[85]))goto T1904;
  3006.     {object V516 = VV[186];
  3007.     VMR32(V516)}
  3008. T1904:;
  3009.     if((V515!= VV[249]))goto T1905;
  3010.     {object V517 = VV[187];
  3011.     VMR32(V517)}
  3012. T1905:;
  3013.     if((V515!= VV[138]))goto T1906;
  3014.     {object V518 = VV[188];
  3015.     VMR32(V518)}
  3016. T1906:;
  3017.     if((V515!= VV[140]))goto T1907;
  3018.     {object V519 = VV[189];
  3019.     VMR32(V519)}
  3020. T1907:;
  3021.     if((V515!= VV[139]))goto T1908;
  3022.     {object V520 = VV[190];
  3023.     VMR32(V520)}
  3024. T1908:;
  3025.     {object V521 = VV[191];
  3026.     VMR32(V521)}}
  3027. }
  3028. /*    local entry for function T1DEFMACRO    */
  3029.  
  3030. static object LI34(V523)
  3031.  
  3032. register object V523;
  3033. {     VMB33 VMS33 VMV33
  3034.     bds_check;
  3035. TTL:;
  3036.     if(endp((V523))){
  3037.     goto T1910;}
  3038.     if(!(endp(cdr((V523))))){
  3039.     goto T1909;}
  3040. T1910:;
  3041.     V524 = make_fixnum(length((V523)));
  3042.     (void)((*(LnkLI270))(VV[192],small_fixnum(2),V524));
  3043. T1909:;
  3044.     if(type_of(car((V523)))==t_symbol){
  3045.     goto T1914;}
  3046.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[193],car((V523)))));
  3047. T1914:;
  3048.     V525= make_cons(VV[192],(V523));
  3049.     (void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V525));
  3050.     setq(VV[6],Ct);
  3051.     {register object V526;
  3052.     object V527;
  3053.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  3054.     V527= symbol_value(VV[57]);
  3055.     bds_bind(VV[51],Cnil);
  3056.     bds_bind(VV[52],Cnil);
  3057.     bds_bind(VV[53],Cnil);
  3058.     bds_bind(VV[54],Cnil);
  3059.     bds_bind(VV[48],Cnil);
  3060.     bds_bind(VV[55],Cnil);
  3061.     V526= Cnil;
  3062.     V526= (*(LnkLI324))(car((V523)),cadr((V523)),cddr((V523)));
  3063.     (void)((*(LnkLI280))());
  3064.     V528= list(7,VV[192],car((V523)),(V527),cddr((V526)),car((V526)),cadr((V526)),(VV[55]->s.s_dbind));
  3065.     setq(VV[20],make_cons(/* INLINE-ARGS */V528,symbol_value(VV[20])));
  3066.     {object V529 = symbol_value(VV[20]);
  3067.     bds_unwind1;
  3068.     bds_unwind1;
  3069.     bds_unwind1;
  3070.     bds_unwind1;
  3071.     bds_unwind1;
  3072.     bds_unwind1;
  3073.     VMR33(V529)}}
  3074. }
  3075. /*    local entry for function T2DEFMACRO    */
  3076.  
  3077. static object LI35(V536,V537,V538,V539,V540,V541)
  3078.  
  3079. object V536;object V537;object V538;object V539;object V540;object V541;
  3080. {     VMB34 VMS34 VMV34
  3081. TTL:;
  3082.     if(((V539))==Cnil){
  3083.     goto T1926;}
  3084.     V542= list(4,VV[99],list(2,VV[87],(V536)),(V539),VV[194]);
  3085.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V542)));
  3086. T1926:;
  3087.     if(((V540))==Cnil){
  3088.     goto T1929;}
  3089.     V543= list(2,VV[87],(V536));
  3090.     V544= list(4,VV[99],/* INLINE-ARGS */V543,list(2,VV[87],(V540)),VV[195]);
  3091.     (void)((VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V544)));
  3092. T1929:;
  3093.     princ_str("\nstatic L",VV[27]);
  3094.     (void)((*(LnkLI265))((V537)));
  3095.     princ_str("();",VV[27]);
  3096.     V545= list(2,VV[87],(V536));
  3097.     V546= list(3,VV[196],/* INLINE-ARGS */V545,(*(LnkLI288))(VV[197],(V537)));
  3098.     {object V547 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V546));
  3099.     VMR34(V547)}
  3100. }
  3101. /*    local entry for function T3DEFMACRO    */
  3102.  
  3103. static object LI36(V554,V555,V556,V557,V558,V559)
  3104.  
  3105. object V554;object V555;register object V556;object V557;object V558;object V559;
  3106. {     VMB35 VMS35 VMV35
  3107.     bds_check;
  3108. TTL:;
  3109.     if((get((V554),VV[198],Cnil))==Cnil){
  3110.     goto T1938;}
  3111.     bds_bind(VV[16],VV[199]);
  3112.     goto T1936;
  3113. T1938:;
  3114.     bds_bind(VV[16],VV[200]);
  3115. T1936:;
  3116.     bds_bind(VV[124],VV[123]);
  3117.     bds_bind(VV[14],Cnil);
  3118.     bds_bind(VV[125],small_fixnum(0));
  3119.     bds_bind(VV[126],small_fixnum(0));
  3120.     bds_bind(VV[127],small_fixnum(0));
  3121.     bds_bind(VV[128],small_fixnum(0));
  3122.     bds_bind(VV[129],Cnil);
  3123.     bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
  3124.     bds_bind(VV[131],(VV[124]->s.s_dbind));
  3125.     setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
  3126.     bds_bind(VV[132],symbol_value(VV[133]));
  3127.     bds_bind(VV[134],Cnil);
  3128.     bds_bind(VV[135],Cnil);
  3129.     bds_bind(VV[136],Cnil);
  3130.     bds_bind(VV[137],small_fixnum(0));
  3131.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[201],(V554))));
  3132.     princ_str("\nstatic L",VV[21]);
  3133.     (void)((*(LnkLI262))((V555)));
  3134.     princ_str("()",VV[21]);
  3135.     princ_str("\n{register object *",VV[21]);
  3136.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  3137.     princ_str("base=vs_base;",VV[21]);
  3138.     V560= structure_ref(car(cddddr((V556))),VV[58],1);
  3139.     (void)((*(LnkLI301))(/* INLINE-ARGS */V560,(V555),VV[144]));
  3140.     princ_str("\n    register object *",VV[21]);
  3141.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  3142.     princ_str("sup=base+VM",VV[21]);
  3143.     (void)((*(LnkLI262))((VV[132]->s.s_dbind)));
  3144.     princ_char(59,VV[21]);
  3145.     princ_str(" VC",VV[21]);
  3146.     (void)((*(LnkLI262))((VV[132]->s.s_dbind)));
  3147.     if((symbol_value(VV[152]))==Cnil){
  3148.     goto T1964;}
  3149.     princ_str("\n    vs_reserve(VM",VV[21]);
  3150.     (void)((*(LnkLI262))((VV[132]->s.s_dbind)));
  3151.     princ_str(");",VV[21]);
  3152.     goto T1962;
  3153. T1964:;
  3154.     princ_str("\n    vs_check;",VV[21]);
  3155. T1962:;
  3156.     if(((V559))==Cnil){
  3157.     goto T1970;}
  3158.     princ_str("\n    bds_check;",VV[21]);
  3159. T1970:;
  3160.     if((symbol_value(VV[145]))==Cnil){
  3161.     goto T1974;}
  3162.     princ_str("\n    ihs_check;",VV[21]);
  3163. T1974:;
  3164.     base[15]= car((V556));
  3165.     base[16]= cadr((V556));
  3166.     base[17]= caddr((V556));
  3167.     base[18]= cadddr((V556));
  3168.     vs_top=(vs_base=base+15)+4;
  3169.     (void) (*Lnk325)();
  3170.     vs_top=sup;
  3171.     princ_str("\n}",VV[21]);
  3172.     V561= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind));
  3173.     setq(VV[29],make_cons(/* INLINE-ARGS */V561,symbol_value(VV[29])));
  3174.     princ_str("\n#define VC",VV[27]);
  3175.     (void)((*(LnkLI265))((VV[132]->s.s_dbind)));
  3176.     {object V562 = (*(LnkLI319))();
  3177.     bds_unwind1;
  3178.     bds_unwind1;
  3179.     bds_unwind1;
  3180.     bds_unwind1;
  3181.     bds_unwind1;
  3182.     bds_unwind1;
  3183.     bds_unwind1;
  3184.     bds_unwind1;
  3185.     bds_unwind1;
  3186.     bds_unwind1;
  3187.     bds_unwind1;
  3188.     bds_unwind1;
  3189.     bds_unwind1;
  3190.     bds_unwind1;
  3191.     bds_unwind1;
  3192.     VMR35(V562)}
  3193. }
  3194. /*    local entry for function T1ORDINARY    */
  3195.  
  3196. static object LI37(V564)
  3197.  
  3198. register object V564;
  3199. {     VMB36 VMS36 VMV36
  3200.     bds_check;
  3201. TTL:;
  3202.     {register object V565;
  3203.     V565= Cnil;
  3204.     setq(VV[6],Ct);
  3205.     if((symbol_value(VV[44]))==Cnil){
  3206.     goto T1994;}
  3207.     (void)((*(LnkLI255))(Cnil,(V564)));
  3208.     {object V566;
  3209.     base[0]= VV[202];
  3210.     vs_top=(vs_base=base+0)+1;
  3211.     Lgensym();
  3212.     vs_top=sup;
  3213.     V566= vs_base[0];
  3214.     V567= listA(3,VV[60],(V566),VV[203]);
  3215.     (void)((*(LnkLI276))(/* INLINE-ARGS */V567));
  3216.     base[0]= list(5,VV[47],(V566),Cnil,(V564),Cnil);
  3217.     vs_top=(vs_base=base+0)+1;
  3218.     (void) (*Lnk259)();
  3219.     vs_top=sup;
  3220.     V568= list(2,VV[204],make_cons((V566),Cnil));
  3221.     setq(VV[20],make_cons(/* INLINE-ARGS */V568,symbol_value(VV[20])));
  3222.     {object V569 = symbol_value(VV[20]);
  3223.     VMR36(V569)}}
  3224. T1994:;
  3225.     {object V570;
  3226.     if(type_of((V564))==t_cons){
  3227.     goto T2004;}
  3228.     V570= Cnil;
  3229.     goto T2003;
  3230. T2004:;
  3231.     if(type_of(car((V564)))==t_symbol){
  3232.     goto T2006;}
  3233.     V570= Cnil;
  3234.     goto T2003;
  3235. T2006:;
  3236.     if(!((car((V564)))==(VV[205]))){
  3237.     goto T2010;}
  3238.     goto T2008;
  3239. T2010:;
  3240.     base[0]= car((V564));
  3241.     vs_top=(vs_base=base+0)+1;
  3242.     Lspecial_form_p();
  3243.     vs_top=sup;
  3244.     V571= vs_base[0];
  3245.     if((V571)==Cnil){
  3246.     goto T2008;}
  3247.     V570= Cnil;
  3248.     goto T2003;
  3249. T2008:;
  3250.     {register object V572;
  3251.     register int V573;
  3252.     V572= cdr((V564));
  3253.     V573= 1;
  3254. T2017:;
  3255.     if((V573)>=(1000)){
  3256.     goto T2019;}
  3257.     if(type_of((V572))==t_cons){
  3258.     goto T2018;}
  3259. T2019:;
  3260.     V570= Cnil;
  3261.     goto T2003;
  3262. T2018:;
  3263.     if(!(type_of(car((V572)))==t_cons)){
  3264.     goto T2024;}
  3265.     if(!((caar((V572)))==(VV[60]))){
  3266.     goto T2024;}
  3267.     V565= cadr(car((V572)));
  3268.     if(!(type_of((V565))==t_cons)){
  3269.     goto T2024;}
  3270.     if(!((car((V565)))==(VV[206]))){
  3271.     goto T2024;}
  3272.     {register object V574;
  3273.     vs_base=vs_top;
  3274.     Lgensym();
  3275.     vs_top=sup;
  3276.     V574= vs_base[0];
  3277.     base[0]= listA(3,VV[47],(V574),cdr((V565)));
  3278.     vs_top=(vs_base=base+0)+1;
  3279.     (void) (*Lnk259)();
  3280.     vs_top=sup;
  3281.     base[1]= (V564);
  3282.     base[2]= small_fixnum(0);
  3283.     base[3]= make_fixnum(V573);
  3284.     vs_top=(vs_base=base+1)+3;
  3285.     Lsubseq();
  3286.     vs_top=sup;
  3287.     base[0]= vs_base[0];
  3288.     V575= list(2,VV[207],list(2,VV[87],(V574)));
  3289.     base[1]= make_cons(/* INLINE-ARGS */V575,Cnil);
  3290.     { save_avma;
  3291.     V576 = stoi(V573);
  3292.     V577= make_integer(addii(stoi(1),V576));
  3293.     base[2]= nthcdr(fixint(/* INLINE-ARGS */V577),(V564));restore_avma;}
  3294.     vs_top=(vs_base=base+0)+3;
  3295.     Lappend();
  3296.     vs_top=sup;
  3297.     V564= vs_base[0];
  3298.     goto TTL;}
  3299. T2024:;
  3300.     if(type_of((V572))==t_cons){
  3301.     goto T2047;}
  3302.     V572= Cnil;
  3303.     goto T2046;
  3304. T2047:;
  3305.     V572= cdr((V572));
  3306. T2046:;
  3307.     V573= (1)+(V573);
  3308.     goto T2017;}
  3309. T2003:;
  3310.     if(((V570))==Cnil){
  3311.     goto T2052;}
  3312.     {object V578 = (V570);
  3313.     VMR36(V578)}
  3314. T2052:;
  3315.     (void)((*(LnkLI255))(Cnil,(V564)));
  3316.     bds_bind(VV[51],Cnil);
  3317.     bds_bind(VV[52],Cnil);
  3318.     bds_bind(VV[53],Cnil);
  3319.     bds_bind(VV[54],Cnil);
  3320.     bds_bind(VV[48],Cnil);
  3321.     V579= list(2,VV[204],(V564));
  3322.     setq(VV[20],make_cons(/* INLINE-ARGS */V579,symbol_value(VV[20])));
  3323.     {object V580 = Cnil;
  3324.     bds_unwind1;
  3325.     bds_unwind1;
  3326.     bds_unwind1;
  3327.     bds_unwind1;
  3328.     bds_unwind1;
  3329.     VMR36(V580)}}}
  3330. }
  3331. /*    local entry for function T2ORDINARY    */
  3332.  
  3333. static object LI38(V582)
  3334.  
  3335. object V582;
  3336. {     VMB37 VMS37 VMV37
  3337. TTL:;
  3338.     {object V583;
  3339.     V583= (type_of((V582))!=t_cons?Ct:Cnil);
  3340.     if(((V583))==Cnil){
  3341.     goto T2059;}
  3342.     {object V584 = (V583);
  3343.     VMR37(V584)}
  3344. T2059:;
  3345.     {object V585;
  3346.     base[0]= (V582);
  3347.     vs_top=(vs_base=base+0)+1;
  3348.     Lconstantp();
  3349.     vs_top=sup;
  3350.     V585= vs_base[0];
  3351.     if(((V585))==Cnil){
  3352.     goto T2064;}
  3353.     {object V586 = (V585);
  3354.     VMR37(V586)}
  3355. T2064:;
  3356.     {object V587 = (VFUN_NARGS=1,(*(LnkLI287))((V582)));
  3357.     VMR37(V587)}}}
  3358. }
  3359. /*    local entry for function ADD-LOAD-TIME-SHARP-COMMA    */
  3360.  
  3361. static object LI39()
  3362.  
  3363. {     VMB38 VMS38 VMV38
  3364. TTL:;
  3365.     {register object V588;
  3366.     register object V589;
  3367.     V588= reverse(symbol_value(VV[48]));
  3368.     V589= car((V588));
  3369. T2069:;
  3370.     if(!(endp((V588)))){
  3371.     goto T2070;}
  3372.     {object V590 = Cnil;
  3373.     VMR38(V590)}
  3374. T2070:;
  3375.     if(!(type_of((V589))!=t_cons)){
  3376.     goto T2074;}
  3377.     (void)((*(LnkLI326))());
  3378. T2074:;
  3379.     V591= make_cons(VV[208],(V589));
  3380.     setq(VV[20],make_cons(/* INLINE-ARGS */V591,symbol_value(VV[20])));
  3381.     V588= cdr((V588));
  3382.     V589= car((V588));
  3383.     goto T2069;}
  3384. }
  3385. /*    local entry for function T2SHARP-COMMA    */
  3386.  
  3387. static object LI40(V594,V595)
  3388.  
  3389. object V594;object V595;
  3390. {     VMB39 VMS39 VMV39
  3391. TTL:;
  3392.     V596= list(3,VV[209],(V594),(V595));
  3393.     {object V597 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V596));
  3394.     VMR39(V597)}
  3395. }
  3396. /*    local entry for function T2DECLARE    */
  3397.  
  3398. static object LI41(V599)
  3399.  
  3400. object V599;
  3401. {     VMB40 VMS40 VMV40
  3402. TTL:;
  3403.     {object V600 = (*(LnkLI326))();
  3404.     VMR40(V600)}
  3405. }
  3406. /*    local entry for function T1DEFINE-STRUCTURE    */
  3407.  
  3408. static object LI42(V602)
  3409.  
  3410. object V602;
  3411. {     VMB41 VMS41 VMV41
  3412. TTL:;
  3413.     V603= (*(LnkLI255))(Cnil,Cnil);
  3414.     V604= make_cons(((/* INLINE-ARGS */V603)==Cnil?Ct:Cnil),Cnil);
  3415.     V605= append((V602),/* INLINE-ARGS */V604);
  3416.     V606= make_cons(VV[210],/* INLINE-ARGS */V605);
  3417.     (void)((*(LnkLI255))(Ct,/* INLINE-ARGS */V606));
  3418.     V607= make_cons(VV[210],(V602));
  3419.     {object V608 = (*(LnkLI260))(/* INLINE-ARGS */V607);
  3420.     VMR41(V608)}
  3421. }
  3422. /*    local entry for function SET-DBIND    */
  3423.  
  3424. static object LI43(V611,V612)
  3425.  
  3426. object V611;object V612;
  3427. {     VMB42 VMS42 VMV42
  3428. TTL:;
  3429.     princ_str("\n    VV[",VV[21]);
  3430.     (void)((*(LnkLI262))((V612)));
  3431.     princ_str("]->s.s_dbind = ",VV[21]);
  3432.     (void)((*(LnkLI262))((V611)));
  3433.     princ_char(59,VV[21]);
  3434.     {object V613 = Cnil;
  3435.     VMR42(V613)}
  3436. }
  3437. /*    local entry for function T1CLINES    */
  3438.  
  3439. static object LI44(V615)
  3440.  
  3441. object V615;
  3442. {     VMB43 VMS43 VMV43
  3443. TTL:;
  3444.     {register object V616;
  3445.     register object V617;
  3446.     V616= (V615);
  3447.     V617= car((V616));
  3448. T2095:;
  3449.     if(!(endp((V616)))){
  3450.     goto T2096;}
  3451.     goto T2091;
  3452. T2096:;
  3453.     if(type_of((V617))==t_string){
  3454.     goto T2100;}
  3455.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[211],(V617))));
  3456. T2100:;
  3457.     V616= cdr((V616));
  3458.     V617= car((V616));
  3459.     goto T2095;}
  3460. T2091:;
  3461.     V618= list(2,VV[212],(V615));
  3462.     setq(VV[20],make_cons(/* INLINE-ARGS */V618,symbol_value(VV[20])));
  3463.     {object V619 = symbol_value(VV[20]);
  3464.     VMR43(V619)}
  3465. }
  3466. /*    local entry for function T3CLINES    */
  3467.  
  3468. static object LI45(V621)
  3469.  
  3470. object V621;
  3471. {     VMB44 VMS44 VMV44
  3472. TTL:;
  3473.     {register object V622;
  3474.     register object V623;
  3475.     V622= (V621);
  3476.     V623= car((V622));
  3477. T2112:;
  3478.     if(!(endp((V622)))){
  3479.     goto T2113;}
  3480.     {object V624 = Cnil;
  3481.     VMR44(V624)}
  3482. T2113:;
  3483.     princ_char(10,VV[21]);
  3484.     (void)((*(LnkLI262))((V623)));
  3485.     V622= cdr((V622));
  3486.     V623= car((V622));
  3487.     goto T2112;}
  3488. }
  3489. /*    local entry for function T1DEFCFUN    */
  3490.  
  3491. static object LI46(V626)
  3492.  
  3493. register object V626;
  3494. {     VMB45 VMS45 VMV45
  3495. TTL:;
  3496.     {register object V627;
  3497.     V627= Cnil;
  3498.     if(endp((V626))){
  3499.     goto T2127;}
  3500.     if(!(endp(cdr((V626))))){
  3501.     goto T2126;}
  3502. T2127:;
  3503.     V628 = make_fixnum(length((V626)));
  3504.     (void)((*(LnkLI270))(VV[213],small_fixnum(2),V628));
  3505. T2126:;
  3506.     if(type_of(car((V626)))==t_string){
  3507.     goto T2131;}
  3508.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[214],car((V626)))));
  3509. T2131:;
  3510.     {object V629= cadr((V626));
  3511.     if(type_of(V629)==t_fixnum||
  3512. type_of(V629)==t_bignum||
  3513. type_of(V629)==t_ratio||
  3514. type_of(V629)==t_shortfloat||
  3515. type_of(V629)==t_longfloat||
  3516. type_of(V629)==t_complex){
  3517.     goto T2134;}}
  3518.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[215],cadr((V626)))));
  3519. T2134:;
  3520.     {register object V630;
  3521.     register object V631;
  3522.     V630= cddr((V626));
  3523.     V631= car((V630));
  3524. T2141:;
  3525.     if(!(endp((V630)))){
  3526.     goto T2142;}
  3527.     goto T2137;
  3528. T2142:;
  3529.     if(!(type_of((V631))==t_string)){
  3530.     goto T2148;}
  3531.     V627= make_cons((V631),(V627));
  3532.     goto T2146;
  3533. T2148:;
  3534.     if(!(type_of((V631))==t_cons)){
  3535.     goto T2152;}
  3536.     if(!(type_of(car((V631)))==t_symbol)){
  3537.     goto T2155;}
  3538.     base[2]= car((V631));
  3539.     vs_top=(vs_base=base+2)+1;
  3540.     Lspecial_form_p();
  3541.     vs_top=sup;
  3542.     if((vs_base[0])==Cnil){
  3543.     goto T2157;}
  3544.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[216],car((V631)))));
  3545. T2157:;
  3546.     V632= car((V631));
  3547.     V633= (*(LnkLI327))(cdr((V631)));
  3548.     V634= make_cons(/* INLINE-ARGS */V632,/* INLINE-ARGS */V633);
  3549.     V635= make_cons(/* INLINE-ARGS */V634,Cnil);
  3550.     V627= make_cons(/* INLINE-ARGS */V635,(V627));
  3551.     goto T2146;
  3552. T2155:;
  3553.     if(!(type_of(car((V631)))==t_cons)){
  3554.     goto T2163;}
  3555.     if(!(type_of(caar((V631)))==t_symbol)){
  3556.     goto T2163;}
  3557.     if(!((caar((V631)))==(VV[87]))){
  3558.     goto T2170;}
  3559.     if(!(endp(cdar((V631))))){
  3560.     goto T2172;}
  3561.     goto T2163;
  3562. T2172:;
  3563.     if(!(((endp(cddar((V631)))?Ct:Cnil))==Cnil)){
  3564.     goto T2174;}
  3565.     goto T2163;
  3566. T2174:;
  3567.     if(!(endp(cdr((V631))))){
  3568.     goto T2176;}
  3569.     goto T2163;
  3570. T2176:;
  3571.     if(((endp(cddr((V631)))?Ct:Cnil))==Cnil){
  3572.     goto T2163;}
  3573.     goto T2168;
  3574. T2170:;
  3575.     base[2]= caar((V631));
  3576.     vs_top=(vs_base=base+2)+1;
  3577.     Lspecial_form_p();
  3578.     vs_top=sup;
  3579.     if((vs_base[0])!=Cnil){
  3580.     goto T2163;}
  3581. T2168:;
  3582.     V636= caar((V631));
  3583.     if(!((caar((V631)))==(VV[87]))){
  3584.     goto T2182;}
  3585.     V638= (*(LnkLI312))(cadar((V631)));
  3586.     V637= make_cons(/* INLINE-ARGS */V638,Cnil);
  3587.     goto T2180;
  3588. T2182:;
  3589.     V637= (*(LnkLI327))(cdar((V631)));
  3590. T2180:;
  3591.     V639= make_cons(/* INLINE-ARGS */V636,V637);
  3592.     V640= (*(LnkLI327))(cdr((V631)));
  3593.     V641= make_cons(/* INLINE-ARGS */V639,/* INLINE-ARGS */V640);
  3594.     V627= make_cons(/* INLINE-ARGS */V641,(V627));
  3595.     goto T2146;
  3596. T2163:;
  3597.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[217],(V631))));
  3598.     goto T2146;
  3599. T2152:;
  3600.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[218],(V631))));
  3601. T2146:;
  3602.     V630= cdr((V630));
  3603.     V631= car((V630));
  3604.     goto T2141;}
  3605. T2137:;
  3606.     V642= car((V626));
  3607.     V643= cadr((V626));
  3608.     V644= list(4,VV[213],/* INLINE-ARGS */V642,/* INLINE-ARGS */V643,reverse((V627)));
  3609.     setq(VV[20],make_cons(/* INLINE-ARGS */V644,symbol_value(VV[20])));
  3610.     {object V645 = symbol_value(VV[20]);
  3611.     VMR45(V645)}}
  3612. }
  3613. /*    local entry for function T3DEFCFUN    */
  3614.  
  3615. static object LI47(V649,V650,V651)
  3616.  
  3617. object V649;object V650;object V651;
  3618. {     VMB46 VMS46 VMV46
  3619. TTL:;
  3620.     {object V652;
  3621.     V652= Cnil;
  3622.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[219],VV[213])));
  3623.     princ_char(10,VV[21]);
  3624.     (void)((*(LnkLI262))((V649)));
  3625.     princ_str("\n{",VV[21]);
  3626.     princ_str("\nobject *vs=vs_top;",VV[21]);
  3627.     princ_str("\nobject *old_top=vs_top+",VV[21]);
  3628.     (void)((*(LnkLI262))((V650)));
  3629.     princ_char(59,VV[21]);
  3630.     if(!(number_compare((V650),small_fixnum(0))>0)){
  3631.     goto T2203;}
  3632.     princ_str("\n    vs_top=old_top;",VV[21]);
  3633. T2203:;
  3634.     princ_str("\n{",VV[21]);
  3635.     {object V653;
  3636.     register object V654;
  3637.     V653= (V651);
  3638.     V654= car((V653));
  3639. T2213:;
  3640.     if(!(endp((V653)))){
  3641.     goto T2214;}
  3642.     goto T2209;
  3643. T2214:;
  3644.     if(!(type_of((V654))==t_string)){
  3645.     goto T2220;}
  3646.     princ_char(10,VV[21]);
  3647.     (void)((*(LnkLI262))((V654)));
  3648.     goto T2218;
  3649. T2220:;
  3650.     if(!((caar((V654)))==(VV[87]))){
  3651.     goto T2225;}
  3652.     princ_char(10,VV[21]);
  3653.     (void)((*(LnkLI262))(cadadr((V654))));
  3654.     {object V655= caadr((V654));
  3655.     if((V655!= VV[70]))goto T2230;
  3656.     princ_str("=VV[",VV[21]);
  3657.     (void)((*(LnkLI262))(cadar((V654))));
  3658.     princ_str("];",VV[21]);
  3659.     goto T2218;
  3660. T2230:;
  3661.     princ_str("=object_to_",VV[21]);
  3662.     base[1]= symbol_name(caadr((V654)));
  3663.     vs_top=(vs_base=base+1)+1;
  3664.     Lstring_downcase();
  3665.     vs_top=sup;
  3666.     V656= vs_base[0];
  3667.     (void)((*(LnkLI262))(V656));
  3668.     princ_str("(VV[",VV[21]);
  3669.     (void)((*(LnkLI262))(cadar((V654))));
  3670.     princ_str("]);",VV[21]);
  3671.     goto T2218;}
  3672. T2225:;
  3673.     princ_str("\n{vs_base=vs_top=old_top;",VV[21]);
  3674.     {register object V657;
  3675.     register object V658;
  3676.     V657= cdar((V654));
  3677.     V658= car((V657));
  3678. T2247:;
  3679.     if(!(endp((V657)))){
  3680.     goto T2248;}
  3681.     goto T2243;
  3682. T2248:;
  3683.     princ_str("\nvs_push(",VV[21]);
  3684.     {object V659= car((V658));
  3685.     if((V659!= VV[70]))goto T2255;
  3686.     (void)((*(LnkLI262))(cadr((V658))));
  3687.     goto T2254;
  3688. T2255:;
  3689.     if((V659!= VV[328]))goto T2257;
  3690.     princ_str("code_char((int)",VV[21]);
  3691.     (void)((*(LnkLI262))(cadr((V658))));
  3692.     princ_char(41,VV[21]);
  3693.     goto T2254;
  3694. T2257:;
  3695.     if((V659!= VV[329]))goto T2261;
  3696.     if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){
  3697.     goto T2262;}
  3698.     princ_str("CMP",VV[21]);
  3699. T2262:;
  3700.     princ_str("make_fixnum((int)",VV[21]);
  3701.     (void)((*(LnkLI262))(cadr((V658))));
  3702.     princ_char(41,VV[21]);
  3703.     goto T2254;
  3704. T2261:;
  3705.     if((V659!= VV[330]))goto T2269;
  3706.     princ_str("make_shortfloat((double)",VV[21]);
  3707.     (void)((*(LnkLI262))(cadr((V658))));
  3708.     princ_char(41,VV[21]);
  3709.     goto T2254;
  3710. T2269:;
  3711.     if((V659!= VV[331]))goto T2273;
  3712.     princ_str("make_longfloat((double)",VV[21]);
  3713.     (void)((*(LnkLI262))(cadr((V658))));
  3714.     princ_char(41,VV[21]);
  3715.     goto T2254;
  3716. T2273:;}
  3717. T2254:;
  3718.     princ_str(");",VV[21]);
  3719.     V657= cdr((V657));
  3720.     V658= car((V657));
  3721.     goto T2247;}
  3722. T2243:;
  3723.     {register object x= caar((V654)),V660= symbol_value(VV[75]);
  3724.     while(!endp(V660))
  3725.     if(type_of(V660->c.c_car)==t_cons &&eql(x,V660->c.c_car->c.c_car)){
  3726.     V652= (V660->c.c_car);
  3727.     goto T2288;
  3728.     }else V660=V660->c.c_cdr;
  3729.     V652= Cnil;}
  3730. T2288:;
  3731.     if(((V652))==Cnil){
  3732.     goto T2286;}
  3733.     if((symbol_value(VV[145]))==Cnil){
  3734.     goto T2290;}
  3735.     princ_str("\nihs_push(VV[",VV[21]);
  3736.     V661= (*(LnkLI314))(caar((V654)));
  3737.     (void)((*(LnkLI262))(/* INLINE-ARGS */V661));
  3738.     princ_str("]);",VV[21]);
  3739.     princ_str("\nL",VV[21]);
  3740.     (void)((*(LnkLI262))(cdr((V652))));
  3741.     princ_str("();",VV[21]);
  3742.     princ_str("\nihs_pop();",VV[21]);
  3743.     goto T2284;
  3744. T2290:;
  3745.     princ_str("\nL",VV[21]);
  3746.     (void)((*(LnkLI262))(cdr((V652))));
  3747.     princ_str("();",VV[21]);
  3748.     goto T2284;
  3749. T2286:;
  3750.     if((symbol_value(VV[145]))==Cnil){
  3751.     goto T2305;}
  3752.     princ_str("\nsuper_funcall(VV[",VV[21]);
  3753.     V662= (*(LnkLI314))(caar((V654)));
  3754.     (void)((*(LnkLI262))(/* INLINE-ARGS */V662));
  3755.     princ_str("]);",VV[21]);
  3756.     goto T2284;
  3757. T2305:;
  3758.     if((symbol_value(VV[152]))==Cnil){
  3759.     goto T2311;}
  3760.     princ_str("\nsuper_funcall_no_event(VV[",VV[21]);
  3761.     V663= (*(LnkLI314))(caar((V654)));
  3762.     (void)((*(LnkLI262))(/* INLINE-ARGS */V663));
  3763.     princ_str("]);",VV[21]);
  3764.     goto T2284;
  3765. T2311:;
  3766.     princ_str("\nCMPfuncall(VV[",VV[21]);
  3767.     V664= (*(LnkLI314))(caar((V654)));
  3768.     (void)((*(LnkLI262))(/* INLINE-ARGS */V664));
  3769.     princ_str("]->s.s_gfdef);",VV[21]);
  3770. T2284:;
  3771.     if(endp(cdr((V654)))){
  3772.     goto T2319;}
  3773.     princ_char(10,VV[21]);
  3774.     (void)((*(LnkLI262))(cadadr((V654))));
  3775.     {object V665= caadr((V654));
  3776.     if((V665!= VV[70]))goto T2326;
  3777.     princ_str("=vs_base[0];",VV[21]);
  3778.     goto T2325;
  3779. T2326:;
  3780.     princ_str("=object_to_",VV[21]);
  3781.     base[1]= symbol_name(caadr((V654)));
  3782.     vs_top=(vs_base=base+1)+1;
  3783.     Lstring_downcase();
  3784.     vs_top=sup;
  3785.     V666= vs_base[0];
  3786.     (void)((*(LnkLI262))(V666));
  3787.     princ_str("(vs_base[0]);",VV[21]);}
  3788. T2325:;
  3789.     {register object V667;
  3790.     register object V668;
  3791.     V667= cddr((V654));
  3792.     V668= car((V667));
  3793. T2336:;
  3794.     if(!(endp((V667)))){
  3795.     goto T2337;}
  3796.     goto T2319;
  3797. T2337:;
  3798.     princ_str("\nvs_base++;",VV[21]);
  3799.     princ_char(10,VV[21]);
  3800.     (void)((*(LnkLI262))(cadr((V668))));
  3801.     {object V669= car((V668));
  3802.     if((V669!= VV[70]))goto T2347;
  3803.     princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]);
  3804.     goto T2346;
  3805. T2347:;
  3806.     princ_str("=object_to_",VV[21]);
  3807.     base[3]= symbol_name(car((V668)));
  3808.     vs_top=(vs_base=base+3)+1;
  3809.     Lstring_downcase();
  3810.     vs_top=sup;
  3811.     V670= vs_base[0];
  3812.     (void)((*(LnkLI262))(V670));
  3813.     princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);}
  3814. T2346:;
  3815.     V667= cdr((V667));
  3816.     V668= car((V667));
  3817.     goto T2336;}
  3818. T2319:;
  3819.     princ_str("\n}",VV[21]);
  3820. T2218:;
  3821.     V653= cdr((V653));
  3822.     V654= car((V653));
  3823.     goto T2213;}
  3824. T2209:;
  3825.     princ_str("\n}",VV[21]);
  3826.     princ_str("\nvs_top=vs;",VV[21]);
  3827.     princ_str("\n}",VV[21]);
  3828.     {object V671 = Cnil;
  3829.     VMR46(V671)}}
  3830. }
  3831. /*    local entry for function T1DEFENTRY    */
  3832.  
  3833. static object LI48(V673)
  3834.  
  3835. register object V673;
  3836. {     VMB47 VMS47 VMV47
  3837. TTL:;
  3838.     {register object V674;
  3839.     register object V675;
  3840.     object V676;
  3841.     register object V677;
  3842.     V674= Cnil;
  3843.     V675= Cnil;
  3844.     setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
  3845.     V676= symbol_value(VV[57]);
  3846.     V677= Cnil;
  3847.     if(endp((V673))){
  3848.     goto T2376;}
  3849.     if(endp(cdr((V673)))){
  3850.     goto T2376;}
  3851.     if(!(endp(cddr((V673))))){
  3852.     goto T2375;}
  3853. T2376:;
  3854.     V678 = make_fixnum(length((V673)));
  3855.     (void)((*(LnkLI270))(VV[220],small_fixnum(3),V678));
  3856. T2375:;
  3857.     if(type_of(car((V673)))==t_symbol){
  3858.     goto T2382;}
  3859.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[221],car((V673)))));
  3860. T2382:;
  3861.     {register object V679;
  3862.     register object V680;
  3863.     V679= cadr((V673));
  3864.     V680= car((V679));
  3865. T2389:;
  3866.     if(!(endp((V679)))){
  3867.     goto T2390;}
  3868.     goto T2385;
  3869. T2390:;
  3870.     {register object x= (V680),V681= VV[222];
  3871.     while(!endp(V681))
  3872.     if(eql(x,V681->c.c_car)){
  3873.     goto T2394;
  3874.     }else V681=V681->c.c_cdr;}
  3875.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[223],(V680))));
  3876. T2394:;
  3877.     V679= cdr((V679));
  3878.     V680= car((V679));
  3879.     goto T2389;}
  3880. T2385:;
  3881.     V677= caddr((V673));
  3882.     if(!(type_of((V677))==t_symbol)){
  3883.     goto T2406;}
  3884.     V674= VV[70];
  3885.     base[1]= symbol_name((V677));
  3886.     vs_top=(vs_base=base+1)+1;
  3887.     Lstring_downcase();
  3888.     vs_top=sup;
  3889.     V675= vs_base[0];
  3890.     goto T2404;
  3891. T2406:;
  3892.     if(!(type_of((V677))==t_string)){
  3893.     goto T2413;}
  3894.     V674= VV[70];
  3895.     V675= (V677);
  3896.     goto T2404;
  3897. T2413:;
  3898.     if(!(type_of((V677))==t_cons)){
  3899.     goto T2419;}
  3900.     {register object x= car((V677)),V682= VV[224];
  3901.     while(!endp(V682))
  3902.     if(eql(x,V682->c.c_car)){
  3903.     goto T2423;
  3904.     }else V682=V682->c.c_cdr;
  3905.     goto T2419;}
  3906. T2423:;
  3907.     if(!(type_of(cdr((V677)))==t_cons)){
  3908.     goto T2419;}
  3909.     if(type_of(cadr((V677)))==t_symbol){
  3910.     goto T2426;}
  3911.     if(!(type_of(cadr((V677)))==t_string)){
  3912.     goto T2419;}
  3913. T2426:;
  3914.     if(!(endp(cddr((V677))))){
  3915.     goto T2419;}
  3916.     if(!(type_of(cadr((V677)))==t_symbol)){
  3917.     goto T2434;}
  3918.     base[1]= symbol_name(cadr((V677)));
  3919.     vs_top=(vs_base=base+1)+1;
  3920.     Lstring_downcase();
  3921.     vs_top=sup;
  3922.     V675= vs_base[0];
  3923.     goto T2432;
  3924. T2434:;
  3925.     V675= cadr((V677));
  3926. T2432:;
  3927.     V674= car((V677));
  3928.     goto T2404;
  3929. T2419:;
  3930.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[225],(V677))));
  3931. T2404:;
  3932.     V683= list(6,VV[220],car((V673)),(V676),cadr((V673)),(V674),(V675));
  3933.     setq(VV[20],make_cons(/* INLINE-ARGS */V683,symbol_value(VV[20])));
  3934.     V684= make_cons(car((V673)),(V676));
  3935.     setq(VV[75],make_cons(/* INLINE-ARGS */V684,symbol_value(VV[75])));
  3936.     {object V685 = symbol_value(VV[75]);
  3937.     VMR47(V685)}}
  3938. }
  3939. /*    local entry for function T2DEFENTRY    */
  3940.  
  3941. static object LI49(V691,V692,V693,V694,V695)
  3942.  
  3943. object V691;object V692;object V693;object V694;object V695;
  3944. {     VMB48 VMS48 VMV48
  3945. TTL:;
  3946.     princ_str("\nstatic L",VV[27]);
  3947.     (void)((*(LnkLI265))((V692)));
  3948.     princ_str("();",VV[27]);
  3949.     V696= list(2,VV[87],(V691));
  3950.     V697= list(3,VV[107],/* INLINE-ARGS */V696,(*(LnkLI288))(VV[226],(V692)));
  3951.     {object V698 = (VFUN_NARGS=1,(*(LnkLI287))(/* INLINE-ARGS */V697));
  3952.     VMR48(V698)}
  3953. }
  3954. /*    local entry for function T3DEFENTRY    */
  3955.  
  3956. static object LI50(V704,V705,V706,V707,V708)
  3957.  
  3958. object V704;object V705;object V706;register object V707;object V708;
  3959. {     VMB49 VMS49 VMV49
  3960. TTL:;
  3961.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[227],(V704))));
  3962.     princ_str("\nstatic L",VV[21]);
  3963.     (void)((*(LnkLI262))((V705)));
  3964.     princ_str("()",VV[21]);
  3965.     princ_str("\n{    object *old_base=vs_base;",VV[21]);
  3966.     {object V709= (V707);
  3967.     if((V709!= VV[228]))goto T2453;
  3968.     goto T2452;
  3969. T2453:;
  3970.     if((V709!= VV[332]))goto T2454;
  3971.     princ_str("\n    char *x;",VV[21]);
  3972.     goto T2452;
  3973. T2454:;
  3974.     princ_str("\n    ",VV[21]);
  3975.     base[0]= symbol_name((V707));
  3976.     vs_top=(vs_base=base+0)+1;
  3977.     Lstring_downcase();
  3978.     vs_top=sup;
  3979.     V710= vs_base[0];
  3980.     (void)((*(LnkLI262))(V710));
  3981.     princ_str(" x;",VV[21]);}
  3982. T2452:;
  3983.     if((symbol_value(VV[152]))==Cnil){
  3984.     goto T2461;}
  3985.     princ_str("\n    check_arg(",VV[21]);
  3986.     V711 = make_fixnum(length((V706)));
  3987.     (void)((*(LnkLI262))(V711));
  3988.     princ_str(");",VV[21]);
  3989. T2461:;
  3990.     if(((V707))==(VV[228])){
  3991.     goto T2467;}
  3992.     princ_str("\n    x=",VV[21]);
  3993. T2467:;
  3994.     princ_str("\n    ",VV[21]);
  3995.     (void)((*(LnkLI262))((V708)));
  3996.     princ_char(40,VV[21]);
  3997.     if(endp((V706))){
  3998.     goto T2475;}
  3999.     {register object V712;
  4000.     register int V713;
  4001.     V713= 0;
  4002.     V712= (V706);
  4003. T2480:;
  4004.     {object V714= car((V712));
  4005.     if((V714!= VV[70]))goto T2484;
  4006.     princ_str("\n    vs_base[",VV[21]);
  4007.     V715 = make_fixnum(V713);
  4008.     (void)((*(LnkLI262))(V715));
  4009.     princ_char(93,VV[21]);
  4010.     goto T2483;
  4011. T2484:;
  4012.     princ_str("\n    object_to_",VV[21]);
  4013.     base[0]= symbol_name(car((V712)));
  4014.     vs_top=(vs_base=base+0)+1;
  4015.     Lstring_downcase();
  4016.     vs_top=sup;
  4017.     V716= vs_base[0];
  4018.     (void)((*(LnkLI262))(V716));
  4019.     princ_str("(vs_base[",VV[21]);
  4020.     V717 = make_fixnum(V713);
  4021.     (void)((*(LnkLI262))(V717));
  4022.     princ_str("])",VV[21]);}
  4023. T2483:;
  4024.     if(!(endp(cdr((V712))))){
  4025.     goto T2495;}
  4026.     goto T2475;
  4027. T2495:;
  4028.     princ_char(44,VV[21]);
  4029.     V712= cdr((V712));
  4030.     V713= (V713)+1;
  4031.     goto T2480;}
  4032. T2475:;
  4033.     princ_str(");",VV[21]);
  4034.     princ_str("\n    vs_top=(vs_base=old_base)+1;",VV[21]);
  4035.     princ_str("\n    vs_base[0]=",VV[21]);
  4036.     {object V718= (V707);
  4037.     if((V718!= VV[228]))goto T2511;
  4038.     princ_str("Cnil",VV[21]);
  4039.     goto T2510;
  4040. T2511:;
  4041.     if((V718!= VV[70]))goto T2513;
  4042.     princ_char(120,VV[21]);
  4043.     goto T2510;
  4044. T2513:;
  4045.     if((V718!= VV[328]))goto T2515;
  4046.     princ_str("code_char(x)",VV[21]);
  4047.     goto T2510;
  4048. T2515:;
  4049.     if((V718!= VV[329]))goto T2517;
  4050.     if(!(number_compare(small_fixnum(0),symbol_value(VV[110]))==0)){
  4051.     goto T2518;}
  4052.     princ_str("CMP",VV[21]);
  4053. T2518:;
  4054.     princ_str("make_fixnum(x)",VV[21]);
  4055.     goto T2510;
  4056. T2517:;
  4057.     if((V718!= VV[332]))goto T2523;
  4058.     princ_str("make_simple_string(x)",VV[21]);
  4059.     goto T2510;
  4060. T2523:;
  4061.     if((V718!= VV[330]))goto T2525;
  4062.     princ_str("make_shortfloat(x)",VV[21]);
  4063.     goto T2510;
  4064. T2525:;
  4065.     if((V718!= VV[331]))goto T2527;
  4066.     princ_str("make_longfloat(x)",VV[21]);
  4067.     goto T2510;
  4068. T2527:;}
  4069. T2510:;
  4070.     princ_char(59,VV[21]);
  4071.     princ_str("\n}",VV[21]);
  4072.     {object V719 = Cnil;
  4073.     VMR49(V719)}
  4074. }
  4075. /*    local entry for function T1DEFLA    */
  4076.  
  4077. static object LI51(V721)
  4078.  
  4079. object V721;
  4080. {     VMB50 VMS50 VMV50
  4081. TTL:;
  4082.     {object V722 = Cnil;
  4083.     VMR50(V722)}
  4084. }
  4085. /*    local entry for function PARSE-CVSPECS    */
  4086.  
  4087. static object LI52(V724)
  4088.  
  4089. object V724;
  4090. {     VMB51 VMS51 VMV51
  4091. TTL:;
  4092.     {register object V725;
  4093.     V725= Cnil;
  4094.     {register object V726;
  4095.     register object V727;
  4096.     V726= (V724);
  4097.     V727= car((V726));
  4098. T2536:;
  4099.     if(!(endp((V726)))){
  4100.     goto T2537;}
  4101.     {object V728 = reverse((V725));
  4102.     VMR51(V728)}
  4103. T2537:;
  4104.     if(!(type_of((V727))==t_symbol)){
  4105.     goto T2543;}
  4106.     base[1]= symbol_name((V727));
  4107.     vs_top=(vs_base=base+1)+1;
  4108.     Lstring_downcase();
  4109.     vs_top=sup;
  4110.     V729= vs_base[0];
  4111.     V730= list(2,VV[70],V729);
  4112.     V725= make_cons(/* INLINE-ARGS */V730,(V725));
  4113.     goto T2541;
  4114. T2543:;
  4115.     if(!(type_of((V727))==t_string)){
  4116.     goto T2549;}
  4117.     V731= list(2,VV[70],(V727));
  4118.     V725= make_cons(/* INLINE-ARGS */V731,(V725));
  4119.     goto T2541;
  4120. T2549:;
  4121.     if(!(type_of((V727))==t_cons)){
  4122.     goto T2553;}
  4123.     {register object x= car((V727)),V732= VV[229];
  4124.     while(!endp(V732))
  4125.     if(eql(x,V732->c.c_car)){
  4126.     goto T2556;
  4127.     }else V732=V732->c.c_cdr;
  4128.     goto T2553;}
  4129. T2556:;
  4130.     {register object V733;
  4131.     register object V734;
  4132.     V733= cdr((V727));
  4133.     V734= car((V733));
  4134. T2560:;
  4135.     if(!(endp((V733)))){
  4136.     goto T2561;}
  4137.     goto T2541;
  4138. T2561:;
  4139.     V735= car((V727));
  4140.     if(!(type_of((V734))==t_symbol)){
  4141.     goto T2569;}
  4142.     base[3]= symbol_name((V734));
  4143.     vs_top=(vs_base=base+3)+1;
  4144.     Lstring_downcase();
  4145.     vs_top=sup;
  4146.     V736= vs_base[0];
  4147.     goto T2567;
  4148. T2569:;
  4149.     if(!(type_of((V734))==t_string)){
  4150.     goto T2573;}
  4151.     V736= (V734);
  4152.     goto T2567;
  4153. T2573:;
  4154.     V736= (VFUN_NARGS=2,(*(LnkLI253))(VV[230],(V734)));
  4155. T2567:;
  4156.     V737= list(2,/* INLINE-ARGS */V735,V736);
  4157.     V725= make_cons(/* INLINE-ARGS */V737,(V725));
  4158.     V733= cdr((V733));
  4159.     V734= car((V733));
  4160.     goto T2560;}
  4161. T2553:;
  4162.     (void)((VFUN_NARGS=2,(*(LnkLI253))(VV[231],(V727))));
  4163. T2541:;
  4164.     V726= cdr((V726));
  4165.     V727= car((V726));
  4166.     goto T2536;}}
  4167. }
  4168. /*    local entry for function T3LOCAL-DCFUN    */
  4169.  
  4170. static object LI53(V743,V744,V745,V746,V747)
  4171.  
  4172. object V743;object V744;object V745;register object V746;register object V747;
  4173. {     VMB52 VMS52 VMV52
  4174.     bds_check;
  4175. TTL:;
  4176.     {object V748;
  4177.     register object V749;
  4178.     object V750;
  4179.     if(((V743))==Cnil){
  4180.     goto T2587;}
  4181.     V748= small_fixnum(0);
  4182.     goto T2585;
  4183. T2587:;
  4184.     V748= structure_ref((V746),VV[28],4);
  4185. T2585:;
  4186.     V749= Cnil;
  4187.     bds_bind(VV[16],(*(LnkLI293))(cadr((V747))));
  4188.     bds_bind(VV[113],Cnil);
  4189.     V750= caaddr((V747));
  4190.     if((structure_ref((V746),VV[28],0))==Cnil){
  4191.     goto T2595;}
  4192.     V751= structure_ref((V746),VV[28],0);
  4193.     goto T2593;
  4194. T2595:;
  4195.     V751= Cnil;
  4196. T2593:;
  4197.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[232],V751)));
  4198.     princ_str("\nstatic ",VV[21]);
  4199.     if(((V743))==Cnil){
  4200.     goto T2602;}
  4201.     V752= VV[233];
  4202.     goto T2600;
  4203. T2602:;
  4204.     V752= VV[234];
  4205. T2600:;
  4206.     (void)((*(LnkLI262))(V752));
  4207.     V753= structure_ref((V746),VV[28],3);
  4208.     (void)((*(LnkLI262))(/* INLINE-ARGS */V753));
  4209.     princ_char(40,VV[21]);
  4210.     princ_str("base0",VV[21]);
  4211.     if(((V750))==Cnil){
  4212.     goto T2611;}
  4213.     V754= VV[235];
  4214.     goto T2609;
  4215. T2611:;
  4216.     V754= VV[236];
  4217. T2609:;
  4218.     (void)((*(LnkLI262))(V754));
  4219.     V755= structure_ref(cadr((V747)),VV[58],1);
  4220.     (void)((*(LnkLI295))(/* INLINE-ARGS */V755,small_fixnum(2)));
  4221.     (void)((*(LnkLI300))(caaddr((V747)),Cnil));
  4222.     princ_str("register object *",VV[21]);
  4223.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  4224.     princ_str("base0;",VV[21]);
  4225.     bds_bind(VV[237],(V745));
  4226.     bds_bind(VV[124],VV[120]);
  4227.     bds_bind(VV[14],Cnil);
  4228.     bds_bind(VV[125],small_fixnum(0));
  4229.     bds_bind(VV[126],small_fixnum(0));
  4230.     bds_bind(VV[127],one_plus((V748)));
  4231.     bds_bind(VV[128],(V745));
  4232.     bds_bind(VV[129],(V744));
  4233.     bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
  4234.     bds_bind(VV[131],(VV[124]->s.s_dbind));
  4235.     setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
  4236.     bds_bind(VV[132],symbol_value(VV[133]));
  4237.     bds_bind(VV[134],Cnil);
  4238.     bds_bind(VV[135],Cnil);
  4239.     bds_bind(VV[136],Cnil);
  4240.     bds_bind(VV[137],small_fixnum(0));
  4241.     V749= (VV[132]->s.s_dbind);
  4242.     princ_str("\n{",VV[21]);
  4243.     V756= structure_ref(cadr((V747)),VV[58],1);
  4244.     V757= structure_ref((V746),VV[28],3);
  4245.     (void)((*(LnkLI301))(/* INLINE-ARGS */V756,/* INLINE-ARGS */V757,VV[238]));
  4246.     princ_str("\n    VMB",VV[21]);
  4247.     (void)((*(LnkLI262))((V749)));
  4248.     princ_str(" VMS",VV[21]);
  4249.     (void)((*(LnkLI262))((V749)));
  4250.     princ_str(" VMV",VV[21]);
  4251.     (void)((*(LnkLI262))((V749)));
  4252.     if((symbol_value(VV[145]))==Cnil){
  4253.     goto T2635;}
  4254.     princ_str("\n    ihs_check;",VV[21]);
  4255. T2635:;
  4256.     base[19]= caddr(cddr((V747)));
  4257.     vs_top=(vs_base=base+19)+1;
  4258.     (void) (*Lnk302)();
  4259.     vs_top=sup;
  4260.     princ_str("\n}",VV[21]);
  4261.     (void)((*(LnkLI303))((V749),Ct));
  4262.     V758= structure_ref((V746),VV[28],3);
  4263.     {object V759 = (*(LnkLI297))(/* INLINE-ARGS */V758);
  4264.     bds_unwind1;
  4265.     bds_unwind1;
  4266.     bds_unwind1;
  4267.     bds_unwind1;
  4268.     bds_unwind1;
  4269.     bds_unwind1;
  4270.     bds_unwind1;
  4271.     bds_unwind1;
  4272.     bds_unwind1;
  4273.     bds_unwind1;
  4274.     bds_unwind1;
  4275.     bds_unwind1;
  4276.     bds_unwind1;
  4277.     bds_unwind1;
  4278.     bds_unwind1;
  4279.     bds_unwind1;
  4280.     bds_unwind1;
  4281.     VMR52(V759)}}
  4282. }
  4283. /*    local entry for function T3LOCAL-FUN    */
  4284.  
  4285. static object LI54(V765,V766,V767,V768,V769)
  4286.  
  4287. object V765;object V766;object V767;object V768;object V769;
  4288. {     VMB53 VMS53 VMV53
  4289.     bds_check;
  4290. TTL:;
  4291.     {int V770;
  4292.     if(((V765))==Cnil){
  4293.     goto T2646;}
  4294.     V770= 0;
  4295.     goto T2644;
  4296. T2646:;
  4297.     V770= fix(structure_ref((V768),VV[28],4));
  4298. T2644:;
  4299.     bds_bind(VV[16],(*(LnkLI293))(cadr((V769))));
  4300.     bds_bind(VV[113],Cnil);
  4301.     if(!(((V765))==(VV[239]))){
  4302.     goto T2649;}
  4303.     {object V771 = (*(LnkLI238))((V765),(V766),(V767),(V768),(V769));
  4304.     bds_unwind1;
  4305.     bds_unwind1;
  4306.     VMR53(V771)}
  4307. T2649:;
  4308.     if((structure_ref((V768),VV[28],0))==Cnil){
  4309.     goto T2655;}
  4310.     V772= structure_ref((V768),VV[28],0);
  4311.     goto T2653;
  4312. T2655:;
  4313.     V772= Cnil;
  4314. T2653:;
  4315.     (void)((VFUN_NARGS=2,(*(LnkLI299))(VV[240],V772)));
  4316.     princ_str("\nstatic ",VV[27]);
  4317.     if(((V765))==Cnil){
  4318.     goto T2662;}
  4319.     V773= VV[241];
  4320.     goto T2660;
  4321. T2662:;
  4322.     V773= VV[242];
  4323. T2660:;
  4324.     (void)((*(LnkLI265))(V773));
  4325.     V774= structure_ref((V768),VV[28],3);
  4326.     (void)((*(LnkLI265))(/* INLINE-ARGS */V774));
  4327.     princ_str("();",VV[27]);
  4328.     princ_str("\nstatic ",VV[21]);
  4329.     if(((V765))==Cnil){
  4330.     goto T2671;}
  4331.     V775= VV[243];
  4332.     goto T2669;
  4333. T2671:;
  4334.     V775= VV[244];
  4335. T2669:;
  4336.     (void)((*(LnkLI262))(V775));
  4337.     V776= structure_ref((V768),VV[28],3);
  4338.     (void)((*(LnkLI262))(/* INLINE-ARGS */V776));
  4339.     princ_char(40,VV[21]);
  4340.     {register object V777;
  4341.     register int V778;
  4342.     V777= make_fixnum(V770);
  4343.     V778= 0;
  4344. T2679:;
  4345.     V779 = make_fixnum(V778);
  4346.     if(!(number_compare(V779,(V777))>=0)){
  4347.     goto T2680;}
  4348.     princ_str("base",VV[21]);
  4349.     V780 = make_fixnum(V778);
  4350.     (void)((*(LnkLI262))(V780));
  4351.     princ_char(41,VV[21]);
  4352.     goto T2675;
  4353. T2680:;
  4354.     princ_str("base",VV[21]);
  4355.     V781 = make_fixnum(V778);
  4356.     (void)((*(LnkLI262))(V781));
  4357.     princ_char(44,VV[21]);
  4358.     V778= (V778)+1;
  4359.     goto T2679;}
  4360. T2675:;
  4361.     princ_str("\nregister object ",VV[21]);
  4362.     {register object V782;
  4363.     register int V783;
  4364.     V782= make_fixnum(V770);
  4365.     V783= 0;
  4366. T2700:;
  4367.     V784 = make_fixnum(V783);
  4368.     if(!(number_compare(V784,(V782))>=0)){
  4369.     goto T2701;}
  4370.     princ_char(42,VV[21]);
  4371.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  4372.     princ_str("base",VV[21]);
  4373.     V785 = make_fixnum(V783);
  4374.     (void)((*(LnkLI262))(V785));
  4375.     princ_char(59,VV[21]);
  4376.     goto T2696;
  4377. T2701:;
  4378.     princ_char(42,VV[21]);
  4379.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  4380.     princ_str("base",VV[21]);
  4381.     V786 = make_fixnum(V783);
  4382.     (void)((*(LnkLI262))(V786));
  4383.     princ_char(44,VV[21]);
  4384.     V783= (V783)+1;
  4385.     goto T2700;}
  4386. T2696:;
  4387.     V787= structure_ref(cadr((V769)),VV[58],1);
  4388.     (void)((*(LnkLI295))(/* INLINE-ARGS */V787,small_fixnum(2)));
  4389.     bds_bind(VV[124],VV[123]);
  4390.     bds_bind(VV[237],(V767));
  4391.     bds_bind(VV[14],Cnil);
  4392.     bds_bind(VV[125],small_fixnum(0));
  4393.     bds_bind(VV[126],small_fixnum(0));
  4394.     V788 = make_fixnum(V770);
  4395.     bds_bind(VV[127],one_plus(V788));
  4396.     bds_bind(VV[128],(V767));
  4397.     bds_bind(VV[129],(V766));
  4398.     bds_bind(VV[130],make_cons((VV[124]->s.s_dbind),Cnil));
  4399.     bds_bind(VV[131],(VV[124]->s.s_dbind));
  4400.     setq(VV[133],number_plus(symbol_value(VV[133]),small_fixnum(1)));
  4401.     bds_bind(VV[132],symbol_value(VV[133]));
  4402.     bds_bind(VV[134],Cnil);
  4403.     bds_bind(VV[135],Cnil);
  4404.     bds_bind(VV[136],Cnil);
  4405.     bds_bind(VV[137],small_fixnum(0));
  4406.     princ_str("\n{    register object *",VV[21]);
  4407.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  4408.     princ_str("base=vs_base;",VV[21]);
  4409.     princ_str("\n    register object *",VV[21]);
  4410.     (void)((*(LnkLI262))((VV[16]->s.s_dbind)));
  4411.     princ_str("sup=base+VM",VV[21]);
  4412.     (void)((*(LnkLI262))((VV[132]->s.s_dbind)));
  4413.     princ_char(59,VV[21]);
  4414.     V789= structure_ref(cadr((V769)),VV[58],1);
  4415.     V790= structure_ref((V768),VV[28],3);
  4416.     (void)((*(LnkLI301))(/* INLINE-ARGS */V789,/* INLINE-ARGS */V790,VV[245]));
  4417.     princ_str(" VC",VV[21]);
  4418.     (void)((*(LnkLI262))((VV[132]->s.s_dbind)));
  4419.     if((symbol_value(VV[152]))==Cnil){
  4420.     goto T2741;}
  4421.     princ_str("\n    vs_reserve(VM",VV[21]);
  4422.     (void)((*(LnkLI262))((VV[132]->s.s_dbind)));
  4423.     princ_str(");",VV[21]);
  4424.     goto T2739;
  4425. T2741:;
  4426.     princ_str("\n    vs_check;",VV[21]);
  4427. T2739:;
  4428.     if((symbol_value(VV[145]))==Cnil){
  4429.     goto T2747;}
  4430.     princ_str("\n    ihs_check;",VV[21]);
  4431. T2747:;
  4432.     if(((V765))==Cnil){
  4433.     goto T2753;}
  4434.     (void)((VFUN_NARGS=2,(*(LnkLI318))(caddr((V769)),caddr(cddr((V769))))));
  4435.     goto T2751;
  4436. T2753:;
  4437.     (void)((VFUN_NARGS=3,(*(LnkLI318))(caddr((V769)),caddr(cddr((V769))),(V768))));
  4438. T2751:;
  4439.     princ_str("\n}",VV[21]);
  4440.     V791= make_cons((VV[132]->s.s_dbind),(VV[126]->s.s_dbind));
  4441.     setq(VV[29],make_cons(/* INLINE-ARGS */V791,symbol_value(VV[29])));
  4442.     princ_str("\n#define VC",VV[27]);
  4443.     (void)((*(LnkLI265))((VV[132]->s.s_dbind)));
  4444.     V792= (*(LnkLI319))();
  4445.     bds_unwind1;
  4446.     bds_unwind1;
  4447.     bds_unwind1;
  4448.     bds_unwind1;
  4449.     bds_unwind1;
  4450.     bds_unwind1;
  4451.     bds_unwind1;
  4452.     bds_unwind1;
  4453.     bds_unwind1;
  4454.     bds_unwind1;
  4455.     bds_unwind1;
  4456.     bds_unwind1;
  4457.     bds_unwind1;
  4458.     bds_unwind1;
  4459.     bds_unwind1;
  4460.     V793= structure_ref((V768),VV[28],3);
  4461.     {object V794 = (*(LnkLI297))(/* INLINE-ARGS */V793);
  4462.     bds_unwind1;
  4463.     bds_unwind1;
  4464.     VMR53(V794)}}
  4465. }
  4466. /*    local entry for function WT-CVARS    */
  4467.  
  4468. static object LI55()
  4469.  
  4470. {     VMB54 VMS54 VMV54
  4471. TTL:;
  4472.     {register object V795;
  4473.     V795= Cnil;
  4474.     {register object V796;
  4475.     register object V797;
  4476.     V796= symbol_value(VV[14]);
  4477.     V797= car((V796));
  4478. T2767:;
  4479.     if(!(endp((V796)))){
  4480.     goto T2768;}
  4481.     goto T2763;
  4482. T2768:;
  4483.     {register object V798;
  4484.     if(!(type_of((V797))==t_cons)){
  4485.     goto T2775;}
  4486.     {register object V799;
  4487.     V799= car((V797));
  4488.     V797= cdr((V797));
  4489.     V798= (V799);
  4490.     goto T2773;}
  4491. T2775:;
  4492.     V798= Ct;
  4493. T2773:;
  4494.     if(!(((V795))==((V798)))){
  4495.     goto T2782;}
  4496.     base[1]= symbol_value(VV[27]);
  4497.     base[2]= VV[246];
  4498.     base[3]= (V797);
  4499.     vs_top=(vs_base=base+1)+3;
  4500.     Lformat();
  4501.     vs_top=sup;
  4502.     goto T2780;
  4503. T2782:;
  4504.     if(!(((V795))==Cnil)){
  4505.     goto T2788;}
  4506.     goto T2787;
  4507. T2788:;
  4508.     base[1]= symbol_value(VV[27]);
  4509.     base[2]= VV[247];
  4510.     vs_top=(vs_base=base+1)+2;
  4511.     Lformat();
  4512.     vs_top=sup;
  4513. T2787:;
  4514.     V795= (V798);
  4515.     base[1]= symbol_value(VV[27]);
  4516.     base[2]= VV[248];
  4517.     base[3]= (*(LnkLI268))((V795));
  4518.     base[4]= (V797);
  4519.     vs_top=(vs_base=base+1)+4;
  4520.     Lformat();
  4521.     vs_top=sup;
  4522. T2780:;
  4523.     if(!(((V795))==(VV[249]))){
  4524.     goto T2772;}
  4525.     base[1]= symbol_value(VV[27]);
  4526.     base[2]= VV[250];
  4527.     base[3]= (V797);
  4528.     vs_top=(vs_base=base+1)+3;
  4529.     Lformat();
  4530.     vs_top=sup;}
  4531. T2772:;
  4532.     V796= cdr((V796));
  4533.     V797= car((V796));
  4534.     goto T2767;}
  4535. T2763:;
  4536.     if(symbol_value(VV[14])==Cnil){
  4537.     goto T2808;}
  4538.     base[0]= symbol_value(VV[27]);
  4539.     base[1]= VV[251];
  4540.     vs_top=(vs_base=base+0)+2;
  4541.     Lformat();
  4542.     vs_top=sup;
  4543. T2808:;
  4544.     if(eql(symbol_value(VV[137]),small_fixnum(0))){
  4545.     goto T2812;}
  4546.     base[0]= symbol_value(VV[27]);
  4547.     base[1]= VV[252];
  4548.     base[2]= symbol_value(VV[137]);
  4549.     vs_top=(vs_base=base+0)+3;
  4550.     Lformat();
  4551.     vs_top=sup;
  4552.     {object V800 = vs_base[0];
  4553.     VMR54(V800)}
  4554. T2812:;
  4555.     {object V801 = Cnil;
  4556.     VMR54(V801)}}
  4557. }
  4558. /*    local function DO-DECL    */
  4559.  
  4560. static L25(base0)
  4561. register object *base0;
  4562. {    register object *base=vs_base;
  4563.     register object *sup=base+VM55; VC55
  4564.     vs_reserve(VM55);
  4565.     {object V802;
  4566.     check_arg(1);
  4567.     V802=(base[0]);
  4568.     vs_top=sup;
  4569. TTL:;
  4570.     V803= structure_ref((V802),VV[65],4);
  4571.     if(eql(/* INLINE-ARGS */V803,VV[68])){
  4572.     goto T2818;}
  4573.     goto T2817;
  4574. T2818:;
  4575.     (VV[148]->s.s_dbind)= Ct;
  4576. T2817:;
  4577.     {object V804;
  4578.     V804= (*(LnkLI333))((V802));
  4579.     if(((V804))==Cnil){
  4580.     goto T2823;}
  4581.     {object V805;
  4582.     setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
  4583.     V805= symbol_value(VV[84]);
  4584.     (void)(structure_set((V802),VV[65],1,(V804)));
  4585.     (void)(structure_set((V802),VV[65],4,(V805)));
  4586.     princ_str("\n    ",VV[21]);
  4587.     if((base0[1])!=Cnil){
  4588.     goto T2830;}
  4589.     princ_char(123,VV[21]);
  4590.     base0[1]= Ct;
  4591. T2830:;
  4592.     base[1]= (V802);
  4593.     vs_top=(vs_base=base+1)+1;
  4594.     (void) (*Lnk334)();
  4595.     return;}
  4596. T2823:;
  4597.     base[1]= Cnil;
  4598.     vs_top=(vs_base=base+1)+1;
  4599.     return;}
  4600.     }
  4601. }
  4602. static LnkT334(){ call_or_link(VV[334],&Lnk334);} /* WT-VAR-DECL */
  4603. static object  LnkTLI333(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[333],&LnkLI333,1,ap);} /* C2VAR-KIND */
  4604. static object  LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,5,ap);} /* T3LOCAL-DCFUN */
  4605. static object  LnkTLI327(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[327],&LnkLI327,1,ap);} /* PARSE-CVSPECS */
  4606. static object  LnkTLI326(){return call_proc0(VV[326],&LnkLI326);} /* WFS-ERROR */
  4607. static LnkT325(){ call_or_link(VV[325],&Lnk325);} /* C2DM */
  4608. static object  LnkTLI324(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[324],&LnkLI324,3,ap);} /* C1DM */
  4609. static object  LnkTLI323(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[323],&LnkLI323,ap);} /* REMOVE-DUPLICATES */
  4610. static int  LnkTLI322(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[322],&LnkLI322,258,ap);} /* ANALYZE-REGS1 */
  4611. static object  LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[321],&LnkLI321,ap);} /* WARN */
  4612. static object  LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[320],&LnkLI320,1,ap);} /* REGISTER */
  4613. static object  LnkTLI319(){return call_proc0(VV[319],&LnkLI319);} /* WT-CVARS */
  4614. static object  LnkTLI318(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[318],&LnkLI318,ap);} /* C2LAMBDA-EXPR */
  4615. static object  LnkTLI317(){return call_proc0(VV[317],&LnkLI317);} /* CLOSE-INLINE-BLOCKS */
  4616. static object  LnkTLI316(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[316],&LnkLI316,1,ap);} /* WT-VS */
  4617. static object  LnkTLI315(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[315],&LnkLI315,1,ap);} /* C2BIND */
  4618. static object  LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],&LnkLI314,1,ap);} /* ADD-SYMBOL */
  4619. static object  LnkTLI313(){return call_proc0(VV[313],&LnkLI313);} /* BABOON */
  4620. static object  LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],&LnkLI312,1,ap);} /* ADD-OBJECT */
  4621. static LnkT311(){ call_or_link(VV[311],&Lnk311);} /* INC-INLINE-BLOCKS */
  4622. static object  LnkTLI310(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[310],&LnkLI310,ap);} /* CS-PUSH */
  4623. static object  LnkTLI309(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[309],&LnkLI309,2,ap);} /* C2BIND-INIT */
  4624. static object  LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[308],&LnkLI308,2,ap);} /* C2BIND-LOC */
  4625. static object  LnkTLI307(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[307],&LnkLI307,1,ap);} /* SET-UP-VAR-CVS */
  4626. static object  LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],&LnkLI306,1,ap);} /* WT-LIST */
  4627. static object  LnkTLI305(){return call_proc0(VV[305],&LnkLI305);} /* CVS-PUSH */
  4628. static object  LnkTLI304(){return call_proc0(VV[304],&LnkLI304);} /* VS-PUSH */
  4629. static object  LnkTLI303(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[303],&LnkLI303,2,ap);} /* WT-V*-MACROS */
  4630. static LnkT302(){ call_or_link(VV[302],&Lnk302);} /* C2EXPR */
  4631. static object  LnkTLI301(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[301],&LnkLI301,3,ap);} /* ASSIGN-DOWN-VARS */
  4632. static object  LnkTLI300(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[300],&LnkLI300,2,ap);} /* WT-REQUIREDS */
  4633. static object  LnkTLI299(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[299],&LnkLI299,ap);} /* WT-COMMENT */
  4634. static object  LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],&LnkLI298,2,ap);} /* ADD-DEBUG-INFO */
  4635. static object  LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[297],&LnkLI297,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */
  4636. static LnkT296(){ call_or_link(VV[296],&Lnk296);} /* T3DEFUN-AUX */
  4637. static int  LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[295],&LnkLI295,258,ap);} /* ANALYZE-REGS */
  4638. static LnkT294(){ call_or_link(VV[294],&Lnk294);} /* FIXNUMP */
  4639. static object  LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[293],&LnkLI293,1,ap);} /* VOLATILE */
  4640. static object  LnkTLI292(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[292],&LnkLI292,1,ap);} /* MAXARGS */
  4641. static object  LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[291],&LnkLI291,1,ap);} /* VARARG-P */
  4642. static object  LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],&LnkLI290,3,ap);} /* WT-IF-PROCLAIMED */
  4643. static int  LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[289],&LnkLI289,258,ap);} /* PROCLAIMED-ARGD */
  4644. static object  LnkTLI288(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[288],&LnkLI288,2,ap);} /* ADD-ADDRESS */
  4645. static object  LnkTLI287(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[287],&LnkLI287,ap);} /* ADD-INIT */
  4646. static object  LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[286],&LnkLI286,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
  4647. static object  LnkTLI285(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[285],&LnkLI285,2,ap);} /* SHIFT<< */
  4648. static int  LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[284],&LnkLI284,257,ap);} /* F-TYPE */
  4649. static LnkT283(){ call_or_link(VV[283],&Lnk283);} /* SUBTYPEP */
  4650. static LnkT282(){ call_or_link(VV[282],&Lnk282);} /* STRUCTURE-SUBTYPE-P */
  4651. static object  LnkTLI281(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[281],&LnkLI281,ap);} /* MAKE-ARRAY */
  4652. static object  LnkTLI280(){return call_proc0(VV[280],&LnkLI280);} /* ADD-LOAD-TIME-SHARP-COMMA */
  4653. static object  LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[279],&LnkLI279,2,ap);} /* MAKE-INLINE-STRING */
  4654. static object  LnkTLI278(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[278],&LnkLI278,2,ap);} /* TYPE-AND */
  4655. static object  LnkTLI277(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[277],&LnkLI277,2,ap);} /* CMPFIX-ARGS */
  4656. static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,1,ap);} /* PROCLAIM */
  4657. static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,1,ap);} /* CHECK-DOWNWARD */
  4658. static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* C1LAMBDA-EXPR */
  4659. static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],&LnkLI273,1,ap);} /* T1PROGN */
  4660. static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,3,ap);} /* TOO-FEW-ARGS */
  4661. static LnkT269(){ call_or_link(VV[269],&Lnk269);} /* CMP-EVAL */
  4662. static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[268],&LnkLI268,1,ap);} /* REP-TYPE */
  4663. static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* WT-DATA-FILE */
  4664. static object  LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],&LnkLI266,1,ap);} /* PUSH-DATA-INCF */
  4665. static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],&LnkLI265,1,ap);} /* WT-H1 */
  4666. static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[264],&LnkLI264,1,ap);} /* WT-FUNCTION-LINK */
  4667. static LnkT263(){ call_or_link(VV[263],&Lnk263);} /* WT-GLOBAL-ENTRY */
  4668. static LnkT245(){ call_or_link(VV[245],&Lnk245);} /* T3LOCAL-FUN */
  4669. static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* WT1 */
  4670. static object  LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],&LnkLI261,3,ap);} /* CMP-EXPAND-MACRO */
  4671. static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* T1ORDINARY */
  4672. static LnkT259(){ call_or_link(VV[259],&Lnk259);} /* T1EXPR */
  4673. static object  LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* CMP-MACROEXPAND-1 */
  4674. static object  LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PRINT-CURRENT-FORM */
  4675. static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* WT-DATA-PACKAGE-OPERATION */
  4676. static object  LnkTLI255(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[255],&LnkLI255,2,ap);} /* MAYBE-EVAL */
  4677. static object  LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[254],&LnkLI254,ap);} /* CMPWARN */
  4678. static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[253],&LnkLI253,ap);} /* CMPERR */
  4679.